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CHAPTER  I 
INTRODUCTION 

In  many  instances  it  would  be  of  great  benefit  to 
the  statistician  to  be  able  to  view  graphically  a 
mathematical  surface  with  which  he  is  working.  A frequent 
occurrence  of  this  circumstance  is  found  in  the  exploration 
and  optimization  of  response  surfaces.  Closely  related 
to  this  problem  is  the  maximization  of  likelihood  surfaces. 

A second,  equally  important  need  can  be  filled  by  the 
ability  to  examine  the  behavior  of  statistical  distribu- 
tion functions  whose  parameters  have  been  subjected  to 
certain  conditions. 

In  the  past,  it  has  been  necessary  for  the 
statistician  to  resort  to  tedious  manual  plotting  methods; 
however,  modern  technology  has  provided  all  of  the  tools 
necessary  to  accomplish  the  task:  the  computer,  the 

plotter  and  the  graphical  computer  terminal.  Unfortunately, 
the  statistician  encounters  many  obstacles  in  attempting 
to  take  advantage  of  these  devices  because  of  the  complexity 
involved  in  bringing  them  into  use.  The  statistician  has 

: 

neither  the  time  nor  the  inclination  to  interrupt  his 
analysis  to 
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1.  identify  the  graphics  equipment  available  to 
him, 

2.  secure  documentation  for  the  plotting  software, 

3.  learn  to  use  this  software  and 

4.  write  and  debug  the  specific  computer  program 
required  for  displaying  the  mathematical 
surfaces  involved  in  his  particular  problem. 

In  most  situations  the  statistician  elects  to  ignore 
the  possible  use  of  graphics  and  to  either  rely  on  intui- 
tion as  to  the  nature  of  the  surface  in  question  or  to 
proceed  with  classical  numerical  techniques  which  have 
been  developed  to  circumvent  the  inability  to  visualize 
the  surface.  The  first  of  these  solutions  is  likely  to 
produce  inaccurate  results  due  to  the  lack  of  experience 
on  the  part  of  the  statistician  in  examining  actual 
surfaces.  The  second  general  method  is  always  costly  and 
can  lead  to  erroneous  results  if  there  has  been  a poor 
choice  of  initial  conditions. 

A rather  specialized  approach  to  providing 
statisticians  with  interactive  graphics  capabilities  was 
made  by  Ball  and  Hall  [ 2],  Their  system,  PROMENADE, 
was  designed  primarily  for  clustering  and  pattern  recog- 
nition. The  authors  point  out,  however,  "that  no 
limited  approach  to  the  problem  will  be  as  fruitful 
as  a more  integrated  approach."  The  purpose  of  the 
following  work  is  to  indicate  an  "integrated  approach" 


which  provides  the  statistician  with  easily  accessible 
graphical  aids  with  a minimum  of  emphasis  upon  the  tech- 
nical requirements  imposed  by  the  computer.  The  direction 
of  the  research  has  been  toward  the  development  of  inter- 
active graphics  programs  which  allow  the  user  to  specify, 
in  some  simple  fashion,  the  surface  of  interest,  and  which 
will  then  calculate  only  once  an  interpolation  function 
for  the  surface.  The  user  may  then  employ  this  interpola- 
tion function  repeatedly,  and  cheaply,  to  display  those 
portions  of  the  surface  under  investigation. 

To  this  end,  two  programs  have  been  developed  under 
the  Graphics  Monitor  System  (GMS)  currently  operated  by 
the  Department  of  Statistics  and  Computer  Science  at  the 
University  of  Georgia.  Penn  [17]  provides  a complete 
description  of  the  hardware  and  software  characteristics 
of  the  system. 

The  first  of  the  programs,  YATES,  analyzes  data  ob- 
tained from  a factorial  experiment.  After  the  initial  in- 
put of  the  data,  the  program  performs  an  analysis  of 
variance  in  order  to  test  for  significant  main  effects  and 
interactions  and,  consequently,  calculates  the  response 
equation,  deleting,  if  desired,  the  coefficients  of 
orthogonal  polynomials  corresponding  to  those  effects  which 
do  not  appear  to  be  significant.  This  resulting  mixed 
polynomial  may  be  displayed  in  a number  of  ways,  e.g,, 
the  equation  itself  may  be  viewed,  cross-sections  of 
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the  surface  may  be  plotted  (with  or  without  95%  confidence 
intervals)  and,  finally,  surface  contours  may  be  generated. 
An  interactive  computer  approach  to  the  design  and  analysis 
of  factorial  experiments  is  demonstrated  by  Margolin  CL 4 ] 
using  interactive  computing  in  the  APL  language.  His 
methods,  however,  require  a knowledge  of  either  APL  or 
an  equally  sophisticated  vector  oriented  programming 
language. 

The  method,  first  introduced  by  Yates  [ 3 ] for  the 
analysis  of  2^  factorial  experiments,  employed  by  the 
YATES  program  is  an  extension  of  simple  polynomial 
interpolation  to  multidimension  space.  An  additional 
discussion  of  this  technique  can  be  found  in  Davies  [ 7 ] . 
Generalizations  of  this  method  to  complete  factorial 
experiments  of  higher  order  can  be  found  in  Binet,  Leslie 
and  Radock  [ 4]  , Margolin  [ 14]  , and  Cooper  [ 6]  . Cooper 
discusses  extending  the  method  to  accommodate  4 or  more 
levels;  however,  no  computational  details  are  given.  An 
additional  "Yates-type"  algorithm  is  introduced  by  Hunter 
111]  for  the  prediction  of  a single  point  on  the  response 
surface  directly  from  the  coefficients  of  the  orthogonal 
polynomials.  This  technique  is  referred  to  by  Hunter  as 
the  "Inverse  Yates  Algorithm."  However,  the  technique  is 
presented  only  for  the  2 case  and,  further,  can  only  be 
used  to  predict  values  for  the  settings  at  which  the 
responses  were  measured,  i.e,,  it  does  not  allow  for 
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interpolation.  The  "Back  Solution"  used  the  present 
program  is  a more  general  tool;  one  which  reparametrizes 
the  response  equation  in  terms  of  orthogonal  polynomials 
into  an  equation  in  terms  of  the  original  polynomial 
products.  Chapter  II,  section  1,  supplies  the  mathematical 
procedures  necessary  for  the  development  and  understanding 
of  the  Yates  method.  Chapter  III,  sections  1 and  3,  de- 
scribe the  actual  computer  implementation  of  the  techniques. 
Illustrations  of  some  of  the  uses  to  which  this  general 
response  surface  analysis  program  may  be  put,  e.g.,  analysis 
of  laboratory  experiments,  problems  in  process  evaluation 
and  the  investigation  of  statistical  likelihood  functions, 
are  found  in  Chapter  IV. 

The  second  program,  BLOWUP,  resulted  from  the 
addition  of  plotting  capability  to  the  existing  GMS  calcu- 
lator mode,  CALCG  [17].  A plot  created  by  this  unit  con- 
sists of  eleven  equally  spaced  realizations  of  any  function 
available  in  CALCG  with  intermediate  values  supplied  by  a 
spline  interpolation  procedure.  Spline  interpolation  was 
introduced  by  Schoenberg  [ 2 ] • General  theory  and  applica- 
tions of  the  spline  function  have  been  further  developed 
by  Ahlberg,  Nilson  and  Walsh  [1].  An  elementary  discussion 
of  the  subject  can  be  found  in  Pennington  [18],  Several 
researchers  in  the  field  of  statistics  are  investigating 
the  data  fitting  possibilities  of  splines;  specifically, 
Poirier  [19]  and  Wold  [30]  are  researching  the  application 
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of  cubic  splines  to  problems  of  piecewise  regression.  The 
present  program,  however,  utilizes  the  spline  function  in 
its  original  form  as  a device  for  numerical  interpolation. 

Chapter  II,  section  2,  contains  the  mathematical  develop- 
ment of  the  spline  algorithm.  Chapter  III,  sections  2 and 
4,  discuss  the  computer  implementation  of  the  technique. 

Examples  illustrating  the  importance  of  the  method 
are  found  in  Chapter  V,  which  discusses  several  important 
statistical  problems  which  are  made  more  tractable  through 
this  combination  of  the  CALCG  function  and  the  spline 
interpolation  technique.  For  example,  the  ability  to  cal- 
culate the  power  of  the  F test  plays  an  important  part  in 
the  design  and  analysis  of  experiments.  It  is  necessary  in 
order  to  answer  a priori  questions  concerning  the  choice  of 
sample  size,  the  number  of  treatments,  etc.  It  is  conve- 
nient, after  the  fact,  to  be  able  to  evaluate  the  sensi- 
tivity of  the  test  performed.  Because  of  the  computational 
complexity  of  the  noncentral  F distribution  and  the  related 
noncentral  Beta  distribution  as  described  in  Bargmann  [ 3 ] 
and  Thomas  [ 25)  , statisticians  have  been  limited  to  tables 
published  in  1938  by  Tang  £2 4 ] and  charts  published  in  19r 
by  Pearson  and  Hartly  [ 13  and  in  1956  by  Fox  [ 8 ] . In 
1967,  Tiku  [26]  produced  a more  comprehensive  set  of  tables. 

In  1972,  Tiku  E>7  ] extended  his  earlier  tables  to  include 
a=,10.  However,  the  enormous  variation  of  degrees  of  free- 
dom, noncentrality  parameters  and  a levels  limits  the 
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practical  use  of  any  set  of  tables  of  the  noncentral  F 
distribution.  An  attempted  solution  to  this  problem 
involving  simplication  of  the  power  formulas  was  pre- 
sented by  Wheeler  [29]  in  1974  under  the  title  of  "Portable 
Poer".  The  pitfalls  in  this  approach  were  immediately 
pointed  out  by  Bowman  and  Kastenbaum  [ 5] . The  present 
program  gives  the  statistician  immediate  access  to  the 
non-central  Beta  distribution  and  thus  allows  the  use  of 
the  power  of  the  F-test  as  an  easily  accessible  tool. 

The  organization  of  the  remaining  chapters  of  this 
work  is  modular  in  nature.  Chapter  II  describes  the 
mathematical  procedures  which  have  been  included  in  the 
two  programs  described  above.  The  actual  computer 
implementation  of  these  programs  is  explained  in  Chapter 
III.  Chapters  IV  and  V contain  step-by-step  descriptions 
of  actual  interactive  sessions  utilizing  the  YATES  and 
BLOWUP  programs,  respectively.  Chapter  VI  summarizes 
the  results  of  the  research.  Specific  information  concern- 
ing the  technique  of  orthogonalization  is  found  in  Appendix 
A,  while  the  actual  orthogonal  polynomials  used  in  the  YATES 
program  are  described  in  Appendix  B.  An  example  of  the 
actual  application  of  the  Yates  method  is  included  in 
Appendix  C.  Program  listings  can  be  found  in  Appendix 


D and  E. 


CHAPTER  II 


[ 

MATHEMATICAL  PROCEDURES 

Certain  mathematical  procedures  must  be  employed  to 
produce  the  software  modules  introduced  in  Chapter  I.  The 
intent  of  this  chapter  is  to  describe  the  relevant 
I procedures. 

2 . 1 Mathematical  Procedures  for  Fitting  Tensor  Products 
of  Polynomials  (Extended  Yates  Method) 

[ * 

The  factorial  experiment  provides  the  statistician 
with  a technique  which  allows  him  to  assess  the  effect  on 
the  output  or  yield  of  a process  brought  on  by  the  varying 
of  experimental  conditions  over  certain  predefined  ranges. 
Each  experimental  condition  which  is  to  be  varied  is 

4 

referred  to  as  a factor,  e.g.,  temperature.  Each  setting 

* 

over  which  the  factor  is  to  be  varied  is  known  as  a level 

i 

e.g.,  level  1 is  70°,  level  2 is  80°,  level  3 is  100°. 

Each  observation  taken  at  a given  factor  combination 
is  referred  to  as  a response.  The  analysis  of  data 
resulting  from  a factorial  experiment  is  performed  for  the 

[ 

purpose  of  estimating  the  main  effects  and  interactions  of 

the  factors  and,  also,  for  calculating  the  associated 
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mean  squares  which  are  needed  in  order  to  determine  the 
statistical  significance  of  these  effects.  In  addition, 
the  experimenter  who  is  concerned  with  determining  the 
particular  combination  of  factor  levels  which  is  expected 
to  produce  an  optimum  yield  will  wish  to  estimate  the 
response  function:  E[Y]=G(z^,  Z2,  ...  zk) 

for  which  Y is  the  response  variable  and  the  z^  is  a 
particular  value  setting  for  the  ifc^  factor.  This  re- 
sponse function  is  usually  represented  by  a polynomial 
in  the  z^'s. 

A computational  technique  to  aid  in  the  analysis 
of  data  from  a factorial  experiment  has  been  presented  by 
Yates  [ 3 ] . This  method,  originally  presented  for  factors 
at  two  levels  only,  involves  the  reparametrization  of  the 
response  equation  from  its  form  of  a polynomial  in  the 
z^'s  into  a function  of  certain  orthogonal  polynomials 
3>j  (z)  . Appendix  A contains  an  explanation  of  the 
orthogonalization  technique  and  Appendix  B presents  the  set 
of  orthogonal  polynomials  used  in  the  present  work.  If  the 
response  data  are  arranged  in  a given  well-defined  order 
(to  be  explained  in  this  chapter) , then  a series  of 
repeated  specified  linear  combinations  of  the  data  will 
result  in,  not  only  the  estimates  of  the  main  effects  and 
interactions  along  with  their  associated  single  degree  of 
freedom  sums  of  squares,  but  also,  in  the  estimates  of  the 
coefficients  of  the  orthogonal  polynomials  for  the  re- 
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parametrized  response  function.  It  is  the  purpose  of  the 
following  sections  to  discuss  the  specific  mathematical 
procedures  necessary  for  the  application  ef  the  Yates 
method.  Appendix  C contains  an  example  of  the  method. 

2 . 1 Raw  Values  and  Standard  Values 

It  can  be  seen  in  Appendix  B that  the  set  of 
orthogonal  polynomials  requires  the  level  settings,  z, 
to  assume  standardized  values,  viz, 

2 levels 

z=-l  for  low  z=l  for  high 

3 levels 

z=-l  for  low  z=0  for  middle  z=l  for  high 

4 levels 

z=-l  z=-l/3  z=l/3  z=l 

for  very  low  for  low  for  high  for  very  high 


The  response  equation  produced  is  in  the  form  a 
tensor  product  of  polynomials  where  each  of  the  input 
variables  (factors)  is  assumed  to  be  in  the  standard  form 


(z-values) . Thus,  the  values  are  dimension  free,  and  the 

| l 

coefficients  have  the  same  dimension  as  the  response  output 

| * 

variable . 

I / 

Due  to  the  fact  that  the  actual  level  settings  or 
raw  values,  T,  are  measured  in  units  corresponding  to  the 

! 

! 


physical  factors  in  question,  e.g.,  temperature  in  degrees, 
it  is  necessary  to  find  a transformation  which  will  allow 
us  to  convert  the  original  (raw)  values  into  standard 
values.  Similarly,  an  inverse  transformation  from  the 
standard  values  back  into  the  original  values  is  also  re- 
quired. The  remainder  of  this  section  presents  these 
transformations . 


Two  Levels 

The  transformation  from  original  (raw)  values  into 

standard  values  is  always  linear  for  2 levels.  Let  T 

denote  a value  of  the  input  variable,  T the  value 

L 

corresponding  to  the  low  level,  T the  value  corresponding 

H 

to  the  high  level,  then 


z = -1  + 


T „t 
H L 


(T  - Tl) 


z = -1,+1 


t = th  + TL  + th  - tl 
2 2 


Three  Levels 

For  three  levels,  the  transformation  is  linear  only 
if  the  raw  values  corresponding  to  low,  medium  and  high  are 
equally  spaced.  Otherwise,  a quadratic  transformation  is 
required: 


s 
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_i  + 2 (T  - Tt  ) 

t — rr  L 

2TM  TH  “ TL  (T  - Tt  ) (T„  - T) 

(tm  - V (th  ' tlI  <th  - TM> 

z = -1,0,1 


Tit  Tt 

T = Tm+  Z 4- 


TH  + TL  ' 2TM  z2 


Four  Levels 

For  four  levels,  the  formulas  may  have  terms  up  to 
the  third  degree;  as  in  the  three  level  case,  the  trans- 
formation is  linear  if  the  raw  observations  TLL  (very  low) , 
Tl  (low) , Th  (high)  and  THH  (very  high)  are  equally  spaced. 
To  obtain  T (raw  observation)  from  z (a  value  interpolated 
in  the  standard  scale)  we  can  use  the  formula; 


T = 


-tll  + 9tl  + 9th  - THH 

rs 


* tll  - 27tl  + 27th  - thh  , 
16 


+ 9{TLL  TL  TH  + THH)  72 

rs 


+ 9(3TL  - Tll  - 3Th  +Thh)  ^3 
16 

z = -1. -1/3, 1/3,1 

A closed  expression  for  the  general  (cubic)  conver- 
sion from  raw  values  (T)  into  standard  values  (Z)  is  more 
effectively  performed  by  the  familiar  Newton  divided- 


H 


difference  scheme: 


fl,,] 


-1/3 


z = ( (c  (T  - T„)  + b)  (T  - Tt  ) + a)  (T  - Tt  _ ) - 1 


More  Than  Four  Levels 

Due  to  the  infrequent  use  of  factorial  designs  which 
involve  factor  settings  at  more  than  four  levels,  the 
present  work  does  not  consider  these  cases,  However,  al- 
though the  resulting  mathematical  expressions  are  somewhat 
involved,  a direct  extension  of  the  methods  presented  in 
this  section  could  be  made. 


2.1.2  Generation  of  the  Yates  Order 


The  introduction  to  the  current  section  contains  a 
reference  to  the  Yates  method  for  ordering  the  response 
data.  This  technique  can  be  executed  symbolically  as 
follows:  For  a given  factor,  A,  the  absence  of  the  letter 
indicates  the  lowest  level  of  the  factor,  while  the 
presence  of  the  letter  a indicates  the  next  higher  level; 
a2,  the  next  higher  level,  and  so  on.  For  example,  the 
Yates  order  for  three  factors  A,  B and  C with  levels  2,  3 


x 
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and  2,  respectively,  is  generated  symbolically  as  follows: 


The  Yates  Order 
for  Factors 

A (2  levels)  B(3  levels)  C (2  levels) 


Response  Symbolic  Corresponding 
Number  Representation  Levels 

ABC 


Corresponding 

Values 

ZA  ZB 


z 


z 


C 


10  abc 

11  b2c 

12  ab^c 


2 2 2 

13  2 

2 3 2 


-1  -1  1 

-1  -1  1 

1-11 


It  is  the  purpose  of  the  section  to  review  the 
modulo  arithmetic  necessary  to  associate  a given  response 
location  with  its  unique  combination  of  factor  settings 
and,  inversely,  to  determine,  from  a given  combination  of 
factor  settings,  the  unique  Yates  location  of  the  associated 
response.  For  simplicity,  level  values,  rather  than  z 


15 


values,  are  used  in  this  exposition. 

Given  a factorial  design  with  n factors  whose  cor- 
responding levels  are  l2,  respectively,  the 

factor  setting  (1  for  level  1,  2 for  level  2,  etc.)  for 
the  kth  factor  of  the  ith  observation  in  the  Yates  order 
may  be  found  by 


j = m + 1 
1 k-1 

j = Im/  n l J + 1 

K V— 1 v 

k 

where  m = (i-l)mod(JI  l ) 

v=l 


Example  2. 1.2.1 

Consider  a 3x4x3x2  factorial  design.  The  Yates 
ordering  of  the  factor  settings  for  the  60tti  observation 
is  found  by 


factor  1 (k=l) 

m = 59mod3  = 2 
factor  2 (k=2) 

m = 59mod(3x4)  = 11 
factor  3 (k=3) 

m = 59mod(3x4x3)  = 23 
factor  4 

m = 59mod (3x4x3x2 ) = 


and  j1=2+l=3 
and  j2  = 11/3  +1=4 

and  j3  = 23/12  +1=2 

59  and  j = 59/36  +1=2 
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Therefore,  the  Yates  ordering  of  the  factor  settings 
for  the  60th  observation  is 

obs.  no.  factor  1 factor  2 factor  3 factor  4 
60  3 4 2 2 

The  process  may  be  inverted  by  the  following 
n k-1 

i = z (jk-i)rr  + j, 

k=2  v=l 


Example  2 . 1 . 2 . 2 

Consider  the  above  3x4x3x2  factorial  design.  The 
Yates  order  factor  settings  3,  4,  2 and  2,  respectively, 
yield 

i = (j2~l)^l  + (j3"l)^i^2  + (34-1)  ^1^2^3  + 3l 
= ( ( ( j4-D  ^3  + j 3~1)  &2  + *2-U*l  + jl 
= (((2-1)3  + 2 - 1)4  + 4-1)3  + 3 
= 60 

So  that  factor  settings  3,  4,  2 and  2 correspond 
to  the  60th  observation.  Note  that  an  easy  computational 
form  of  the  algorithm  is  given  in  the  second  line  of  the 
above  example . 

2.1.3  Application  of  the  Yates  Algorithm 

In  order  to  calculate  the  estimates  of  the  coeffi- 


L 
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cients  of  the  orthogonal  polynomial  formulation  of  the 
general  linear  model  as  described  above,  certain  linear 
combinations  of  the  observations  must  be  calculated.  The 
calculations  are  greatly  simplified  by  the  application  of 
the  Yates  algorithm  which  is  composed  of 

a.  a specific  ordering  of  the  observations  and 

b.  the  formulation  of  stepwise  linear  combinations 
of  these  ordered  observations. 

The  procedure  is  applied  by  first  totaling  the  rep- 
lications for  each  factor  combination  (cell)  and  then 
arranging  these  subtotals  into  a vector  using  the  Yates 
ordering  (refer  to  section  2,1.2).  Beginning  with  this 
vector,  a new  vector  is  created  for  each  factor  in  the 
design;  each  vector,  composed  of  linear  combinations  of 
the  elements  of  the  previous  vector.  The  linear  combi- 
nations are  created  sequentially  by  making  one  complete 
"pass"  through  the  vector  for  each  level  of  the  current 
factor,  according  to  the  following  scheme: 


no.  of  levels 

movement 

pass 

linear  combination 

2 

pairwise 

1 

H + L 

2 

H - L 

3 

triples 

1 

H + M + L 

2 H - L 

3 H + L - 2M 
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of  levels  movement 

pass 

linear 

combination 

4 quadruples 

1 

HH  + H 

+ L 

+ LL 

2 

3 (HH  - 

LL) 

+ (H  - L) 

3 

(HH  + 

LL) 

- (H  + L) 

4 

(HH  - 

LL) 

- 3 (H  - L) 

where 

LL  - very  low,  L - low,  M - middle,  H - high,  HH  - very 
high. 

To  obtain  the  coefficients  of  the  response  equation 
(in  terms  of  the  orthogonal  polynomials) , the  elements  of 
the  resulting  vector  may  then  be  divided  by  the  products 
of  the  number  of  replications  of  the  experiment  and  the 
sums  of  squares  of  the  orthogonal  polynomials  (refer 
to  Appendix  C)  corresponding  to  the  treatment  levels  re- 
presented by  the  position  of  the  element  within  the  vector. 
In  addition,  the  usual  single  degree  of  freedom  sums  of 
squares  may  be  obtained  by  first  squaring  the  elements 
of  the  resulting  vector  prior  to  the  indicated  division. 

2.1.4  The  Back  Solution 

It  was  stated  in  the  previous  section  that  the  Yates 
method  results  in  the  calculation  of  estimates  of  the 
coefficients  of  the  orthogonal  polynomial  formulation  of 
the  response  function.  In  the  simple  case  of  one  factor, 
at,  say,  3 levels,  a typical  result  might  be 
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y = 10  - 25>i(z)  + 4$2  (z) 

where  <5>^(z)  and  l®2^z^  are  defined  in  Appendix  B.  It  is 
reasonable  that  the  experimenter  may  wish  to  reformulate 
the  expression  in  terms  of  the  standard  z values. 

y = 10  - 2 (z)  +4  (3z2-2) 

= 2 - 2z  + 12z2 

Because  z lies  between  -1  and  1,  the  contribution  of  each 
coefficient  to  the  predicted  value  of  y may  be  readily 
determined  by  simple  inspection  of  the  resulting  polynomial. 

For  the  one  factor  case  at  2,  3 or  4 levels,  it  is  a 
straight  forward  procedure  to  substitute  for  the  4>*s  and 
collect  terms  in  order  to  determine  the  rule  necessary 
to  reparamatrize  the  orthogonal  formulation  back  to  the 
standard  form  of  the  polynomial.  The  manipulation  and 
resulting  rule  follows  for  each  case.  The  notation 
followed  in  stating  the  rule  is  identical  to  that  used 
in  the  previous  section;  however,  in  this  instance,  it  is 

A 

being  applied  to  the  P's. 

Linear 

y=3o+^l$l  (z) 

A A /V 

y=30+31z 
a0=*B0  and 


Rule:  Copy  L,  Copy  H 
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Quadratic 

y=e0+B1$1(z)+32^2(z) 

y=BQ+B^z  + B2  (3z2-2) 

=(B0-2B2)+B1z+382z2 

«0=^0~2^2  al=^l  a2=3^2 

Rule:  L-2H,  copy  M,  3H 


Cubic 


y=Bo+6i^l(z)+B2<J>2(z^+S3'^3(z) 

=B0+Bi+B2 (9/4z2-5/4)  + 83  (45/4z3-41/4z) 
=(B0-5/4B2)+3E1-41/4B3)z+9/432z2+45/4g3z3 


a0-$0~5/4$2  ’ al  r33B1-41/4B3,a3'=9/4B2,  a3=45/4B3 
Rule:  12  (LL)-l  5(H)  , 36  (X.) -123  (.HH)  , 27(H),  135  (HH) 


and  divide  all  results  by  12. 


The  technique  developed  above  may  be  extended  to  the 
two  factor  case.  Assume  a 2x3  factorial  design  with  the  2- 
level  factor  occurring  first  in  the  Yates  ordering.  Assume, 
further,  that  resulting  estimated  response  function  is 
y=5-2$|1)  (Zl)+3${2)  (z2)+5${1)  (z2) 

-3$2(2)  (z2)  +4<5>|1^  (Zl)$2(2)  ( z 2 ) 

Upon  substitution  we  have 

y-5-2 (z3) +3 (z2) +5 (z^)  (z2) 

-3(3z2-2)+4  (z3)  (3z2-2) 

=ll-10z1+3z2+5ziz2-9z2+12z3z2 
Note  that  if  the  linear  rule  developed  above  is 
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applied  pairwise  to  the  vector  of  coefficients,  followed 
by  the  application  of  the  quadratic  rule  to  the  new 
vector,  the  resulting  vector  contains  the  coefficients  of 
the  reformulated  expression. 

Coefficients  of 
Orthogonal 

Formulation  linear  quadratic 

5 5 5-2 (-3 ) =11 

-2  3 -2-2 (4 ) =-10 

3 -3  3=3 

5 -2  5=5 

-3  5 3 (-3) =-9 

4 4 3 (4 ) =12 

Symbolically,  the  technique  is  as  follows: 

y=B0  + Mi(1)  (zi)  + B2^i(2)(z2) 

+ £3$!  ^ (zi)  ^ (z2)  + £$4<i>2  (z2) 

+ ( l1  (Z3)  4>2  ^ (z2 ) 

==  t S 0 + 6 1 (l)  (zx)  ] + $2  + B3^i  (1)  (zl)  Ui  <2)  (22) 

+ [ B 4 + §5$i^^(zi)]$2^^(z2) 

The  linear  coefficients  may  be  calculated  first 


— [ B q + E ]_  z 3 ] + [^2  + 03zl]^l^2^(z2) 
+ [04  + 0 z 1 ] $ 2 ^ ( Z2 ) 
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a0  = ' 2g4  al  = gl  ' 2g5  a2  B g2  a3  = e3 

A A A A 

a4  = 3g4  a5  «=  3£5 

Rule:  apply  linear  rule  pair  wise 

apply  quadratic  rule  in  triplets 


Example:  linear  quadratic 

30  PO  ^0  ” 2 ^4 

§1 ^2  ^1  " 2 ^5 

$2  §£ ^2 

A ^ A 

$3__  ^1  $3 

§4  h 2h 

A ^ ^ 

35  35  3B5 


Multi-Factors 

The  general  technique  for  the  reformulation  of  the 
response  function  is 

1.  The  ordering  of  the  estimated  coefficients  of 
the  orthogonal  polynomials  is  to  be  maintained 
exactly  as  it  resulted  from  the  application  of 
the  Yates  method. 

2.  One  pass  is  made  through  the  vector  of  co- 
efficients for  each  factor  in  the  design,  i.e.,  a 
pass  for  the  first  factor,  a pass  for  the  second 
factor,  etc. 

3.  Each  pass  consists  of  repeated  applications  of 
the  linear,  quadratic  or  cubic  rule  depending 
upon  the  number  of  levels  for  the  corresponding 
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factor. 

4.  The  resulting  vector  contains  the  coefficients  of 
the  reformulated  polynomial. 

The  following  is  an  example  of  the  application  of  the 
"back  solution"  to  the  coefficients  resulting  from  the 
application  of  the  Yates  method  to  a 3x2x4  factorial 
design.  The  last  column  contains  the  coefficients  of  the 
polynomial  in  terms  of  the  standard  z^'s. 


A 

B 

C 

Quadratic 

Linear 

Cubic 

Rule 

Rule 

Rule 

A 

A 

A 

A A 

A A A A 

eo 

eo  ~ 

2P2 

e0  - 282 

[12  (P0  - 262)  - 15  CB12  - 2614)]/12 

A 

A 

!3 ' 

A 

265 

A A 

e6  " 2^8 

I12B  - 153  ]/12 

b2 

§6  - 

2§8 

§12  ' 2§i4 

[ 3 6 B 2 - 45314]/12 

A 

03 

A 

- 

2§il 

§18  _ 2 §20 

[12(63  - 265)  - 15  ( §15  - 2 §17 ) ] /1 2 

a 

e4 

hi- 

2§i4 

A 

h 

1 12 §4  - 15316]/12 

A 

% 

A 

^15- 

2§1? 

A 

*7 

[ 36§5  - 4561?]/12 

A 

06 

§18" 

2 §20 

§13 

[ 36  (§6  - 2§8 ) - 123  (§18  - 2§20)]/12 

A 

07 

§21" 

2 §2  3 

§19 

[ 36  §?  - 1233ig]/12 

A 

A 

61 

A 

382 

[ 108 §g  - 369§20]/12 

A 

^9 

A 

^4 

A 

3e8 

[ 36  ( 6g  - 261X)  - 123  (B21  - 2323)  1/12 

**10 

A 

87 

3§14 

[ 36 §1Q  - 123§22]/12 

A 

611 

§10 

3§20  “ 2§5 

[108§11  - 369B23]/12 

§12 

A 

013 

A 

03  “ 26ii 

[27  (§  - 28  )]/12 

12  14 

A 

»13 

§16 

§9  - 2§17 

[276131/12 

§14 

§19 

A 

^15 

[81§i4]/12 
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ABC 
Quadratic  Linear  Cubic 

Rule  Rule  Rule 


&15  *22  *21~2^23  1 27  ^15  ” 2*17^/12 


A A A 


!16 

3B2 

*4 

*17 

A 

365 

A 

*10 

/S 

*18 

3B8 

*16 

*19 

3*11 

*22 

*20 

36i4 

385 

*21 

3^17 

3*11 

*22 

3*20 

3*17 

*23 

3*23 

3*2  3 

[27§16]/12 

[8ll17]/12 

£135  tS18  - 2B2o)]/12 
U35619]/12 

[40532o]/12 
I135(i21-2B23)  V12 

I135g22]/12 

l4Q5^23]/12 


2.1.5  Exchange  of  Yates  Order 


It  will  be  seen  in  section  2.1.6  that  the  most 


efficient  computational  method  for  plotting  the  estimated 
response  function  against  a specified  factor  over  some 
fixed  interval  requires  the  factor  of  interest  to  have 
been  specified  last  in  the  Yates  order.  Because  the 
user  of  the  program  may  wish  to  view  several  plots,  each 
with  respect  to  a different  factor,  the  program  must  have 
the  facility  for  rearranging  the  polynomial  coefficients. 

For  example,  assume  that  the  program  has  produced 
for  factors  A(2  levels),  B(3  levels),  and  C(2  levels)  the 
following  coefficients 
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i 


1 

I 

4 


ksr 


Coefficient 

number 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


Factor 

levels 

ABC 

111 

2 11 

12  1 

2 2 1 

13  1 

2 3 1 

112 

2 12 

12  2 

2 2 2 

13  2 

2 3 2 


Coefficients 

100 
- 10 
20 
30 

- 40 

- 20 
10 

0 

50 

- 30 
40 

- 50 


If,  however,  the  analysis  had  been  performed  with  the 
factors  in  the  order  B,  C,  A,  the  results,  although 
identical  to  the  previous  results,  would  have  been 
arranged  as  follows 


\ 
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Coefficient 

number 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


Factor 
levels 
B C A 

1 1 1 

2 11 

3 11 

12  1 
2 2 1 

3 2 1 

112 
2 12 

3 12 

1 2 2 

2 2 2 

3 2 2 


Coefficients 

100 

20 

- 40 
10 
50 
40 

- 10 
30 

- 20 
0 

- 30 

- 50 


If  we  wish  to  determine  the  location  under  the  new  factor 
ordering  of  one  of  the  original  coefficients,  say  4,  we 
first  use  the  methods  of  section  2.1.2  to  determine  that  the 
levels  corresponding  to  position  4 are  level  2(A),  level  2 
(B) , and  level  1(C).  These  levels  may  then  be  rearranged, 
i.e.,  level  2(B),  level  1(C),  and  level  2(A),  to  determine, 
again  by  using  the  methods  of  section  2.1.2,  that 
new  location  = (2-1) 66+ (1-1) 3+2 
= 8 

Thus,  the  coefficient  30,  which  was  in  position  4 under  the 
original  factor  ordering,  occupies  position  8 under  the  re- 
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vised  ordering. 

Given  an  observation  in  location  i,  the  corresponding 
factor  settings  are  found  by 
31  = in  + 1 
k-1 

jk  = [m/n  £v]  + 1 


where 


m = (i-l)mod(F  £..) 


and  is  the  level  of  the  vth  factor. 

The  j's  and  l' s may  then  be  rearranged  into  the  new 
ordering  as,  say,  j x ' , j2',  ...,  jn'  and  , Z2 ' , ...  , 
so  that  the  new  location  i'  is  given  by 


n k-1 

i*  = i 


Example  2 . 1 . 5 . 1 

Consider  the  exanple  of  section  2.1.2  in  which  it 
was  found  that  for  a 3x4x3x2  factorial  design,  the  60th  ob- 
servation occurs  at  settings  3,  4,  2 and  2,  respectively. 

If  the  factors  were  to  be  rearranged  into  a 2x3x3x4  design 
as  in  the  following  table 

new  arrangement  old  arrangement  £'  j' 

1 factor  422 

2 factor  133 

3 factor  332 

4 factor  244 
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and,  computationally, 

i'  = ( ( (j4 ' - 1U3'  + j3  - 1 )l2'  - l)^'  + jx' 

= (((4  - 1)3  + 2 - 1)3  + 3 - 1)2  + 2 
= 66 

so  that  observation  60  under  the  original  ordering  of, 
say,  ABCD  becomes  observation  66  of  the  new  ordering  DACB. 

2.1.6  Mixed  Polynomial  Evaluation 

The  plotting  of  a response  surface  as  a function  of 

{ 

one  of  its  factors  requires  the  evaluation  of  a mixed  poly- 
nomial expression.  If  the  surface  has  been  fitted  using  k 
factors  and  then  if  fixed  values  are  substituted  for  k-1 
of  the  variables  while  the  kth  variable  is  varied  over  an 

i 

interval  many  such  polynomial  evaluations  are  required. 
Although  it  is  possible  to  evaluate  the  expression  say  100 
times  by  simply  substituting  the  values  of  the  k variables 

J 

at  each  of  the  100  points,  it  is  much  more  efficient  to 
evaluate  the  expression  in  terms  of  the  first  k-1  vari- 
ables only  once  and  then  to  vary  the  kth  variable  over  the 

i 

interval.  This  reduction  of  a mixed  polynomial  expression 
to  a simple  single  variable  polynomial  can  be  accomplished 
through  the  use  of  repeated  synthetic  divisions  applied 
to  polynomial  coefficients  arranged  in  the  Yates  order. 

J It  is  well  known  that  the  most  efficient  computa- 

tional technique  for  the  evaluation  of  a polynomial  is 
that  of  synthetic  division.  In  the  case  of  a mixed  poly- 

i 


\ 
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nomial  expression,  the  same  technique  can  be  used  pro- 
vided the  coefficients  are  inversely  arranged  in  the  Yates 
order  described  in  section  2.1.2. 


Example  2 . 1 . 6 . 1 

f(x,y)  = 10x3y2  - 14x2y2  + 8xy2  - 12y2  - 15x3y 

- 21x2y  + 12xy  - 18y  - 5x3  + 7x2  - 4x  + 6 
= (10x3  - 14x2  + 8x  - 12) y2 
+ (15x3  - 21x2  + 12x  - 18 ) y 
+ (-5x3  + 7x2  - 4x  + 6) 

= ( (10x3  - 14x2  + 8x  - 12 ) y2 
+ (15x3  - 21x2  + 12x  - 18)  y 
+ (-5x3  + 7x2  - 4x  + 6) 

Note  that  synthetic  division  can  be  applied  to  the  3 
polynomials  in  x thus  determining  the  coefficients  of  the 
y factors.  Synthetic  division  may  again  be  applied  for 
the  final  evaluation  of  the  expression. 

Example  2. 1.6. 2 

Consider  the  following  mixed  polynomial  expression 
inversely  arranged  in  the  Yates  order. 
f(x,y,z)  = 20x3y2z  - 28x2y2z  + 16xy2z  - 24y2z  + 30x3y 

- 42x2y^+  24xyz  - 36yz  - 10x3z  + 14x^z  - 8xz 

+ 12z  + 10x3y2-  14x2y2  + 8xy2  - 12y2  + 15x3y 

- 21x2y  + 12xy  - 18y  - 5x3  + 7x2  - 4x  + 6 


Suppose  we  wish  to  evaluate  this  expression  for 
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x = 1,  y = 2 and  for  x = -1.  Figure  2. 1.6.1  displays  the 
step-by-step  method  of  solution.  The  coefficients  are 
listed  in  order  on  the  far  left.  Because  x is  the  first 
variable  in  the  Yates  ordering,  synthetic  division  (for 
x = 1)  is  performed  repeatedly  to  groups  of  4 coefficients 
resulting  in  the  6 "collapsed"  coefficients  flagged  with 
asterisks.  These  coefficients  (of  y,z  terms)  are  copied 
into  the  middle  column  where  synthetic  division  (for 
y = 2)  is  performed  repeatedly  to  groups  of  3 coefficients 
resulting  in  the  2 "collapsed"  coefficients  again  flagged 
with  asterisks.  These  coefficients  (of  z terms  only)  are 
copied  into  the  last  column  where  synthetic  division 
(for  z=-l)  is  performed  once  to  produce  the  result  (which 
is  flagged  with  an  asterisk) . We  see  that 
f (x=l , y=2 , z=-l ) = 48. 

If,  however,  we  wish  to  evaluate  the  expression  for 
x = 1,  y = 2 and  for  values  of  z ranging  from  say  -10  to 
10  in  steps  of  0.1,  we  see  from  the  second  column  of 
figure  2. 1.6.1  that 

f (z | z=l,y=2)  = -lOOz  - 52 

which  can  then  be  evaluated  repeatedly  for  the  desired 
values  of  z. 

2.1.7  Confidence  Intervals 

The  application  of  the  Yates  method  to  the  analysis 
of  data  from  a factorial  experiment  results  in  a simple 
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POLYNOMIAL  EVALUATION  BY  REPEATED  SYNTHETIC  DIVISION 


COEF 

OF 

COEF  OF 

(X,Y, 

Z) 

X=1 

(Y,  Z)  Y=2 

20 

20 

-16  -16 

-28 

20 

-8 

-24  -32  -56 

16 

-8 

8 

8 -108  -100* 

-24 

8 

-16* 

30 

30 

-8  -8 

-42 

30 

-12 

-12  -16  -28 

24 

-12 

12 

4 -56  -52* 

-36 

12 

-24* 

-10 

-10 

14 

-10 

4 

-8 

4 

-4 

12 

-4 

8* 

10 

10 

-14 

10 

-4 

8 

-4 

4 

-12 

4 

-8* 

15 

15 

-21 

15 

-6 

12 

-6 

6 

-18 

6 

-12* 

-5 

-5 

7 

-5 

2 

-4 

2 

-2 

6 

-2 

4* 

COEF  OF 

Z Z=-l 

-100  -100 

-52  100  48* 


FIGURE  2. 1.6.1 


32 


computational  procedure  for  the  placement  of  confidence 
intervals  about  predicted  responses.  Chapter  IV  contains 
several  examples  of  such  confidence  intervals.  Examina- 
tion of  these  displays  naturally  leads  to  the  question  of 
the  location  of  the  occurrence  of  the  minimum  and  maximum 
distance  of  each  interval  from  the  predicted  response. 
Direct  application  of  the  usual  techniques  provided  by 
differential  calculus  supplies  the  answer. 

Define  q as  follows: 


q(zn)  = i + ®Q('zo)  + ...  + ^n-l^o1 
n <-»  ' 


ZQ2  (z) 
z ° 


£*n-l<2> 


where  <tj(z)  is  the  jth  orthogonal  polynomial  for  z at  n 
levels  and  zQ  is  some  fixed  value  for  z. 

Due  to  the  orthogonality  of  Z'Z  (Appendix  A ) , we  have 
in  the  one  variable  case 


var(£| zQ)  = a2 (1  + * ' (zQ) (Z ' Z) _1£ (zQ) ) 

= a2  (1  + q(zQ)) 

In  the  two  variable  case,  say  for  z and  w,  we  have 
var(y|z0,wQ)  = a (1  + q(zQ)q(w0)) 

The  extension  to  several  variables  is  accomplished  by 
simply  introducing  new  q factors  for  the  new  variables. 
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Example  2 . 1 . 7 . 1 

From  the  definition,  in  Appendix  B,  of  the  set  of 

orthogonal  polynomials  for  n=3,  we  see  that  for  z=z  we 

o 

have 

q(z  ) = 4 + Zn.  + (^Zq-2  ) 2 
° 3 2 6 

It  is  of  interest,  then,  to  investigate  the  values 
which  minimize  and  maximize  q and,  consequently,  the 
confidence  interval  distances  about  y. 

a.  2 levels 

q = 1 + £ 

7 2 

attains  a maximum  (q  = 1)  and  z = +1  (domain  limits)  and 

a minimum  (q  = 1)  at  z = 0 . 

2 

b.  3 levels 

q = 1 + z_  + (3z2-2 ) 2 


attains  a maximum  (q  = 1)  at  z = 0 and  z = +1  and  a 

minimum  (q  = 5.)  at  z = +1//2 
8 

c.  4 levels 

, 0 9 5 2 , 45,3-41,  ? 

n = 1 + ( 3z ) 2 J 4 4”  ^ 

4 4 20  4 20 

attains  a maximum  (q  = 1.178)  at  z = +/73-2/301  and  a 

135 

minimum  (q  = 41/64)  at  z = 0 . (Note  that  at  factor 

settings  z = +1  and  z = +1/3,  q = 1 and  a local  minimum 

(q  * 0.748)  occurs  at  z = +/7 3+2/301  .) 

135 

In  the  case  of  several  factors  we  see  that,  again  due 
to  orthogonality,  if  we  wish  to  calculate  confidence 
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intervals  for  a range  of  one  factor  z with  all  other 
factors  fixed,  we  simply  calculate  the  q values  once  for 
the  fixed  factors  and  then  evaluate  q(z)  for  each  z value 
of  interest.  Note  that  the  maxima  and  minima  occur  at  the 
values  of  z found  above  even  in  the  presence  of  other 
fixed  factors. 

2.1.8  Calculation  of  Contours 

The  plotting  of  response  surface  contours  first  re- 
quires the  evaluation  of  a mixed  polynomial  expression 
for  k-2  of  its  k factor  variables.  Secondly,  the  expected 
response  for  which  contours  are  desired  is  subtracted  from 
the  constant  term  of  the  polynomial,  a value  for  the  (k-1 ) st 
variable  is  substituted  into  the  reduced  expression  and, 
finally,  the  roots  of  the  remaining  single  variable  poly- 
nomial are  extracted  producing  a point  on  the  contour. 

The  methodology  for  accomplishing  this  is  as  follows: 
The  two  variables  for  which  contours  are  desired  are 
selected  and  the  coefficients  of  the  expression  are  re- 
arranged, in  the  Yates  order,  using  the  method  of  section 
2.1.5,  so  that  of  the  two  variables  of  interest,  the  one 
with  the  smaller  number  of  levels  is  placed  last  and  the 
other  one  next  to  last.  The  remaining  factors  precede  these 
two  in  any  order.  By  the  use  of  the  method  of  section  2.1.6 
the  expression  is  reduced  to  one  involving  only  the  last  two 
variables.  The  desired  response  value  is  then  subtracted 
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from  the  constant  term,  One  of  the  selected  variables 
(i.e.,  the  next  to  last  factor  in  the  Yates  order)  is  then 
fixed  at  each  of  51  points,  chosen  for  effective  spacing 
on  the  display  screen,  covering  the  desired  interval;  thus 
the  expression  is  reduced  to  a polynomial  in  one  variable. 
The  roots  of  this  polynomial  are  calculated  and  those  which 
lie  between  the  requested  limits  for  the  variable  which 
occurs  last  in  the  Yates  order  constitute  the  specified 
contour . 

Example  2 . 1 . 8 . 1 

For  the  three  variable  polynomial  in  section  2.1.6, 
set  x = 1 and  find  those  values  of  l<y<_3  and  -2_<z_<0,  if 
any,  for  which 

f(x,y,z)  = 48 

From  section  2.1.6,  the  reduced  polynomial  is 
f(y,z|x=l)  = -16y2z  - 24yz  + 8z  - 8y2  - 12y  + 4 
Now,  find  y and  z such  that 
f (y, z | z=l)  = 48 
or 

-16y2z  - 24yz  + 8z  - 8y2  - 12y  - 44  = 0 
Using  3 values  of  y rather  than  the  50  values  used  in 
practice,  the  scheme  illustrated  in  Figure  2. 1.8.1  is 
produced . 


\ 
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CALCULATION  OF  CONTOURS 


For  y = 1, 

then,  as 

in  section 

2.1.6, 

the  reduction  is 

as  follows 

-16 

-16 

-24  -16 

-40 

8 -40 

-32* 

thus 

-32z  - 

64  = 0 

-8 

-8 

z = -2 

-12  -8 

-20 

-44  -20 

-64* 

For  y = 2 , 

then 

-16 

-16 

-24  -32 

-56 

8 -108 

-100* 

thus 

-lOOz 

- 100  = 0 

-8 

-8 

z = -1 

-12  -16 

-28 

-44  -56 

-100* 

For  y = 3, 

then 

-16 

-16 

-24  -48 

-72 

8 -216 

-208* 

thus 

-208z 

- 152  = 0 

-8 

-8 

z = -19/26 

-12  -24 

-36 

-44  -108 

-152 

FIGURE  2.1. 8.1 
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So  that  for  x = 1 and  f(y,z|x=l)  = 48,  three 
points  along  the  contour  are 

y z 
1 -2 
2 -1 
3 -19/26 

2 . 2 Polynomial  Approximation  Using  the  Cubic  Spline 

Given  a set  of  points  (x^y^,  (x2,y2),  ...  , (x^,yn) 

arranged  in  increasing  values  of  x,  we  wish  to  find  a 

function  which  can  be  used  to  interpolate  for  given 

intermediate  values  of  x.  Using  the  technique  presented 

in  Scott  and  Norman[  23]  , the  solution  can  be  accomplished 

through  the  use  of  a cubic  spline  function,  i.e., 

n 

y = f (x)  = a + bx  +1  (x  - x.)| 

i=l  1 

where  (d)3  = d3  for  d > 0 

= 0 otherwise 

In  order  to  determine  the  c^'s  one  employs  the 


following  technique 


r 


X 

y 

f[,] 

9 

X1 

H 

>1 

fl 

X2 

y2 

CN 
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• 

<?3 

• 

• 

• 

• 

• 

• 

• 

xn 

^n 

* 

fn-l 

• 

• 

gn-l 

where 


and 


i+1 


- yH 


xi+i  - xd 
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gi  fi  " fi-1 

The  values  of  S2,  s^,  ...  , sn_i  may  then  be  deter- 
mined by  solving  the  following  tri-diagonal  system. 


* 


2(x3~x1)  (x3-x2)  0 ...  0 

0 2(x4-x2)  (x4-x3) 


0 

0 


2<vrxn-3,(vr*n-2 


2 

s3 


n-2 

sn-l 


g2 

93 


0 ...  2 (xn  ~xn_2 

Upon  solving  this  system,  the  c^'s  may  be  found  by 


gn-2 

gn-l 


' • I 
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X 

s h [ , ] 

c 

X1 

0 

0 

0 

s2/ (x2-xi ) 

C1 

x2 

s2 

(s3-s2)/ (x3-x2) 

c2 

x3 

s3 

• 

• 

• 

• 

• • 

• 

• 

• • 

• 

• 

xn-2 

sn-2  , 

(sn-rsn-2}/Cxn-l-xn-2) 

cn-2 

xn-l 

n'1  -sn-l/(xn-xn-l) 

cn-l 

xn 

0 0 

cn 

0 

where 

The 

by  direct 


ci  = hi+l  - hi 

linear  coefficients,  a and  b, 
evaluation  at  x^  and  x3» 


may  then  be  found 
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CHAPTER  III 

COMPUTATIONAL  IMPLEMENTATION 

The  mathematical  procedures  described  in  the  pre- 
vious chapter  may  be  transcribed  into  a set  of  subprograms 
which  can  then  be  combined  to  produce  interactive  graphics 
programs.  Two  such  programs,  as  described  in  Chapter  I, 
have  been  produced.  Sections  3.1  and  3.2  of  this  chapter 
provide  documentation  for  each  of  the  subroutines  of  the 
mathematical  procedures  used  by  the  system.  In  addition, 
complete  instructions  are  given  in  section  3.3  for  the 
preparation  of  data  for  disk  input  to  the  YATES  program. 

For  the  statistican  who  wishes  to  add  his  own  function  sub- 
programs to  the  Graphics  Distribution  Unit,  section  3.4 
contains  the  steps  necessary  for  the  permanent  or  temp- 
orary  inclusion  of  these  routines  into  the  library.  Certain 
utility  subroutines  necessary  for  the  implementation  of  the 
programs  are  found  in  section  3.5. 

j 

j 

3. 1 The  YATES  Program 

The  description  of  the  main  program  includes  a flow 
chart  of  the  program  logic.  Following  this  description 
is  a detailed  list  of  all  computational  subroutines  used. 
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3.1.1  The  Main  Program 

a.  Loading  instructions 

$LINK  YATES 

b.  Description 

The  YATES  program  is  an  interactive  graphics 
program  prepared  for  the  analysis  of  data 
resulting  from  a complete  factorial  design. 

The  experiment  to  be  analyzed  may  include 
up  to  4 factors,  with  each  factor  having 
up  to  4 levels.  A maximum  of  6 replications 
of  the  experiment  may  be  input  to  the  pro- 
gram. The  major  capabilities  of  the  program 
are:  (1)  the  computation  of  the  analysis  of 

variance  table,  (2)  the  calculation  of  the 
response  equation,  (3)  the  plotting  of  cross- 
sections  of  the  response  surface  (with  or  with- 
out confidence  intervals),  and  (4)  the  plotting 
of  contours  of  the  response  surface. 

c.  Subroutines  called 

PLOTS,  BEGIN,  INPUT,  EDIT,  YATES,  BACK, 

PAGIT,  PLOTTER 

d.  COMMON  areas 

YATDAT , DIRAC 

e.  Mode  of  Operation 

computational 


FLOWCHART  OF  YATES  - PART  I 


r 


FIGURE  3.1.1a 
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FLOWCHART  OF  YATES  - PART  2 


FIGURE  3.1.1b 
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3.1.2  Subroutine  BEGIN 

a.  Calling  Sequence 

CALL  BEGIN (&NUM1,  &NUM2 ) 

&NUM1  - The  statement  number  to  which  con- 
trol is  returned  if  user  wishes  to 
enter  data  from  the  keyboard. 

&NUM2  - The  statement  number  to  which  con- 
trol is  returned  if  input  data  are 
stored  on  disk. 

b.  Description 

This  subroutine  displays  the  initial  frame  to 
the  user.  Program  limitations  are  listed  and  the 
user  is  provided  with  the  option  to  enter  his  data 
from  the  keyboard  or  to  read  it  directly  into  the 
program  from  disk. 

c.  Subroutines  called 

GRINIT,  EORINT,  GCEOR , MASKIT,  GRDPLY , 

SPACE,  TWAIT,  GERAS,  GRRLSE 

d.  COMMON  Areas 

unlabeled  COMMON,  DIRAC 

e.  Mode  of  Operation 

COMFORT 


* 
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Subroutine  INPUT 


a.  Calling  Sequence 

CALL  INPUT (&NUM1,  &NUM2 ) 

&NUM1  - The  statement  number  to  which  con- 
trol is  returned  if  the  user  wishes 
to  edit  the  raw  data, 

&NUM2  - The  statement  number  to  which  con- 
trol is  returned  if  the  user  wishes 
to  continue  with  the  analysis  of 
his  data. 

b.  Description 

This  subroutine  requests  from  the  user  the  ob- 
servations to  be  analyzed,  along  with  the  additional 
information  necessary  for  the  analysis:  the  number 

of  factors,  the  number  of  levels  for  each  factor,  the 
number  of  replications,  the  factor  settings  and, 
additionally,  the  mean  square  error  if  only  one 
replication  is  present  in  the  data.  The  data  input  is 
prompted  in  Yates  order  and  the  user  is  given  the 
opportunity  to  edit  a line  of  input  at  any  time.  Upon 
completion  of  the  input  the  data  are  stored  away  on 
disk  and  the  user  is  provided  with  the  option  to 
either  review  his  data  or  to  continue  with  the 
analysis.  If  the  user  chooses  to  continue  with  the 
analysis,  he  is  given  the  option  to  retain  or 
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immediately  delete  all  terms  whose  corresponding 
single  degrees  of  freedom  F values  are  less  than 

1.0. 

c.  Subroutines  called 

GRINIT,  EOBINT,  GCEOB , MASKIT,  GRDPLY , TWAIT , 
GRRPLX , INX , GERAS,  FETCH,  SPACE,  ANAL,  GBKSP , 
GRRLSE 

d.  COMMON  areas 

unlabeled  COMMON,  BAKDAT,  YAIDAT , DIRAC 

e.  Mode  of  Operation 

COMFORT 

f.  Logical  Flow 

The  logical  flow  of  the  INPUT  subroutine  is 
as  follows 

i.  The  INPUT  subroutine  determines  interactively 
the  number  of  factors  in  the  design,  the  number  of 
replications,  the  name  of  the  factors,  and  the 
number  of  levels  for  each  factor.  If  the  data 
consist  cf  only  one  replication,  the  user  is  asked 

to  supply  an  estimate  of  the  Mean  Square  Error  anu 
the  number  of  degrees  of  freedom  on  which  the 
estimate  is  based. 

ii.  The  subroutine  then  determines,  from  the 
user,  the  values  for  the  level  settings  of  the 
factors.  A default  of  level  1=1,  level  2 ~ 2,  etc. 
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is  provided. 

iii.  The  subroutine  then  generates  and  displays, 
one  at  a time  and  in  the  Yates  order,  all  of  the  combina- 
tions of  level  settings  for  the  factors.  The  user  responds 
by  entering,  from  the  keyboard,  all  of  the  replications 
for  each  setting.  The  data  are  stored  away  on  disk. 

iv.  The  user  may  interrupt  the  process  in  step 
Ciii)  at  any  time  in  order  to  edit  any  previously  entered 
data. 


v.  After  completion  of  data  entry,  all  of  the 
information  gathered  in  steps  (i)  and  (ii)  is  stored  away 
on  disk. 

vi.  Finally,  the  user  is  presented  with  the  option 
of  deleting  each  response  equation  coefficient  whose 
corresponding  single  degree  of  freedom  F value  is  less  than 
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3,1,4  Subroutine  EDIT 

a.  Calling  Sequence 

CALL  EDIT 

b.  Description 

This  subroutine  reads  the  raw  data  from  disk  and 
displays  it  to  the  user.  The  user  may  either  simply 
view  the  data  or  replace  observations  with  new  data. 
Upon  completion  of  the  editing  of  the  data,  the  user 
is  given  the  option  to  retain  or  immediately  delete 
all  terms  whose  corresponding  single  degree  of 
freedom  F values  are  less,  than  1.0.  The  analysis  of 
the  data  follows. 

c.  Subroutine  called 

GRINIT,  EOBINT,  GCEOB,  GRDPLY , MASKIT,  TWAIT, 
GERAS,  SPACE,  GRRPLX , INX , FETCH,  ANAL,  GBKSP , 
GRRLSE 

d.  COMMON  areas 

unlabeled  COMMON,  BAKDAT,  YATDAT , DIRAC 

e.  Mode  of  Operation 

COMFORT 


» 
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.5  Subroutine  YATES 


a.  Calling  Sequence 

CALL  YATES 

b.  Description 

This  subroutine  uses  the  Yates  Method  to  per- 
form an  analysis  of  variance  for  a factorial  design 
and  to  calculate  the  coefficients  of  the  orthogonal 
polynomials  used  to  approximate  the  response  surface. 
The  analysis  of  variance  results  are  formatted  to 
disk  for  later  presentation  to  the  user.  If  the  user 
has  requested  deletion  of  terms  whose  corresponding 
single  degree  of  freedom  F values  are  less  than 
1.0,  this  is  done  and  the  sum  of  squares  for  these 
terms  is  added  into  the  error  sum  of  squares.  Note: 
the  analysis  of  variance  is  not  modified. 

c.  Subroutine  called 

ANAL 

d.  COMMON  areas 

DIRAC,  YATDAT , BAKDAT 

e.  Mode  of  Operation 

Computational 

f.  Logical  Flow 

The  logical  flow  of  the  YATES  subroutine  is  as 
follows 

i.  The  subroutine  first  examines  the  number  of 
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replications,  NREP.  If  NREP  equals  1,  an  estimate, 
requested  by  the  INPUT  subroutine,  of  the  mean  square 
error,  VSE,  for  the  response  variable  and  the 
number  of  degrees  of  freedom,  NER,  on  which  these 
estimates  are  based  are  used.  If  NREP  is  greater 
than  1,  an  estimate  of  the  mean  square  error  for  the 
response  variable  is  calculated  from  the  data  by 
subtracting  from  the  total  sum  of  squares,  the  sum 
of  squares  of  the  cell  totals  divided  by  the  number 
of  replications  and  dividing  that  result  by  its 
associated  number  of  degrees  of  freedom,  the  number 
of  replication  minus  one  times  the  total  number  of 
cells . 

ii.  The  subroutine  then  calculates  d^  x &2  (as  illus- 
trated in  Appendix  C.  An  element  of  the  array  d^, 
called  NDl  in  the  subroutine,  is  defined  to  be  the 
number  of  replications  times  the  number  times  the 
particular  treatment  combination  present  in  that 
cell,  ignoring  all  factors  at  level  1,  appears  as  a 
factor  in  other  cells.  Computationally,  each  factor 
setting  is  scanned  using  ANAL.  NDl  is  calculated  as 
the  number  of  replications  times  the  product  of  the 
i total  number  of  design  levels  for  each  factor  with  a 

level  of  1 in  that  particular  cell.  An  element  of 

I 

the  array  d£,  called  ND  in  the  subroutine,  is  the 
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product  of  the  sums  of  squares  of  the  orthogonal  poly- 
nomials corresponding  to  each  level  setting  of  the 
factors  in  a particular  cell.  Because  d^  and  d2  are 
not  used  separately  in  the  subroutine,  the  product 
d^  x d2  is  saved  in  the  array  NDl . 

iii.  The  Yates  algorithm  is  then  employed  to  calculate 

the  necessary  linear  combinations  of  the  cell  totals, 
DAT.  One  pass  is  made  through  the  cell  total  vector 
for  each  level  of  each  factor  in  the  design  with  the 
resulting  vector  for  each  factor  replacing  the  cell 
total  vector  before  moving  to  the  next  factor.  The 
linear  combinations  used  are  found  in  section  2.1.3. 
After  having  performed  the  above  calculations  for 
each  factor,  with  the  final  results  stored  in  DAT, 
the  estimates,  array  A,  of  the  coefficients  of  the 
response  equation  are  calculated  by  dividing  each 
element  of  the  array  DAT  by  the  corresponding 
element  of  the  array  NDl.  The  single  degree  of 
freedom  sums  of  squares,  array  SS,  are  similarly 
calculated  by  dividing  the  square  of  each  element  of 
the  array  DAT  by  corresponding  element  of  the  array 
NDl.  The  coefficients  and  sums  of  squares  are  then 
written  out  to  logical  unit  NW. 

iv.  In  order  to  provide  an  analysis  of  variance  table 
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reporting  the  main  effects  and  all  interactions,  the  single 

degree  of  freedom  sums  of  square  are  then  accumulated  into 

the  vector  SQA  which  is  of  order  2NFAC-1.  Simultaneously, 

NFAC 

the  vector  NR  (also  of  order  2 -1)  is  used  to  accumulate 

the  corresponding  degrees  of  freedom.  A binary  placement 

technique  is  used  to  find  the  proper  position  in  SQA  for  a 

particular  single  degree  of  freedom  sum  of  squares,  so 

that,  for  example,  an  analysis  of  variance  table  for 

factors  A,  B and  C will  have  the  main  effect  of  C in 

position  4,  the  AB,  AC,  BC  and  ABC  interactions  in  positions 

3,  5,  6 and  7,  respectively.  After  the  sums  of  squares 

have  been  accumulated,  the  subroutine  ANAL  is  used,  with 

all  levels  equal  to  2 , to  generate  the  factor  names  for 

the  analysis  of  variance  table.  As  the  line  counter,  KH 

NFAC 

for  the  table  passes  from  1 through  2 -1,  the  levels 

generated  by  ANAL  are  1 for  the  absence  of  a factor  and  2 
for  the  presence  of  a factor.  This  information  is  used  to 
load  the  output  vector  SETUP  with  the  proper  factor  names 
which  are  then  written  to  disk  in  print  format  — for  later 
display  on  the  IBM  2250  screen  — along  with  the 
corresponding  degrees  of  freedom,  from  NR,  the  sums  of 
squares  divided  by  the  degrees  of  freedom)  and  the  F value 
(the  mean  square  divided  by  the  mean  square  error,  VSE) . 

After  the  analysis  of  variance  table  has  been 
completed  for  all  main  effects  and  interactions,  a line 
identified  as  all  effects  is  also  written  to  disk.  This 
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line  contains  the  degrees  of  freedom  for  all  effects,  NALL 
(the  number  of  cells  minus  one) , the  sum  of  squares  for  all 
effects,  SQAL  (the  accumulated  sums  of  squares  for  all  main 
effects  and  interactions)  and  the  corresponding  mean  square 
for  all  main  effects  and  interactions)  and  the  corresponding 
mean  square  and  F value.  Lastly,  a line  identified  as 
error  is  written.  This  line  contains  the  degrees  of 
freedom  for  error,  the  sum  of  squares  for  error  and  the  mean 
square  error  as  calculated  or  requested  by  INPUT. 
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3.1.6  Subroutine  BACK 


a.  Calling  Sequence 

CALL  BACK 

b.  Description 

This  subroutine  converts  the  coefficients  of 
the  orthogonal  polynomial  representation  of  the 
response  surface  into  coefficients  in  terms  of  the 
standardized  z values.  It  then  formats  this  form  of 
the  equation  to  disk  for  later  presentation  to  the 
user.  In  addition,  it  calculates  the  equations 
necessary  to  transform  the  z values  into  the 
original  raw  values.  These  operations  are  also 
formatted  to  disk. 

c.  Subroutines  called 

ANAL,  DWMULT 

d.  COMMON  areas 

YATDAT , BAK'JAT,  DIRAC 

e.  Mode  of  Operation 

Computational 

f.  Logical  Flow 

The  logical  flow  of  the  BACK  subroutine  is  as 
follows 

i.  The  vector  DAT,  which  was  passed  from  the 
YATES  subroutine,  contains  the  coefficients  of  the 
orthogonal  polynomial  form  of  the  response  equation. 
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The  vector  DAT  is  copied  into  a vector  A. 

Linear  combinations,  as  specified  in  section 
2.1.4,  of  the  vector  A are  made  — one  complete 
pass  for  each  factor.  The  resulting  vector  con- 
tains the  coefficients  of  the  polynomial  in 
terms  of  the  original  standard  values. 

ii.  The  coefficients  for  the  transformations 

necessary  to  convert  the  raw  values  for  each 
factor  into  the  standard  values  are  calculated 
using  the  methods  specified  in  section  2.1.2. 

iii.  Using  the  mean  square  error  VSE  from  subroutine 
YATES,  the  minimum  and  maximum  two  sigma  confi- 
dence limits  are  calculated  as  in  section  2.1.7. 

iv.  The  actual  response  equation  in  standard  values 
is  the  written  to  disk  in  print  format  for  later 
display  on  the  IBM  2250  screen. 

v.  Also  placed  on  disk  in  a similar  format  are  the 
raw  value  to  standard  value  transformations  for 


the  factors. 
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vi.  Similarly,  the  minimum  and  maximum  two  sigma 
dence  limits  are  formatted  to  disk  for  later 
display . 
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3.1.7  Subroutine  PAGIT 
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a.  Calling  Sequence 

CALL  PAGIT  (&NUM1 , &NUM2 , &NUM3) 

&NUM1  - The  statement  number  to  which  con- 

is  passed  if  the  user  wishes  to  edit 
the  raw  data. 

&NUM2  - The  statement  number  to  which  con- 
trol is  passed  if  the  user  wishes 
to  plot  the  response  surface. 

&NUM3  - The  statement  number  to  which  con- 
trol is  passed  if  the  user  wishes 
to  recalculate  the  response  equation 
after  deleting  one  or  more  ortho- 
gonal terms. 

b.  Description 

This  subroutine  simply  displays  from  disk  the 
analysis  of  variance  table,  the  response  equation  and, 
for  the  statistician,  the  single  degree  of  freedom 
sums  of  squares.  The  user  may  (1)  return  to  the  raw 
data  for  editing,  (2)  plot  the  response  surface  or 
(3)  delete  one  or  more  orthogonal  coefficients  and 
recalculate  the  standardized  equation  of  the  response 
surface  (the  Analysis  of  Variance  table  is  unchanged 
by  this  process) . 
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c.  Subroutines  called 

EOBINT,  GRINIT,  GCEOB,  NEWPGE , MASKIT,  STUFF, 
SNAP,  TWA IT , GERAS,  SPACE,  GRDPLY , FETCH,  ANAL, 
GRRPLX , INX , GRRLSE 

d.  COMMON  areas 

BAKDAT,  YATDAT , DIRAC,  unlabeled  COMMON 

e.  Mode  of  Operation 

COMFORT 
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3.1.8  Subroutine  PLOTTR 


a.  Calling  Sequence 

CALL  PLOTTR  (&NUM1,  &NUM2 ) 

&NUM1  - The  statement  number  to  which  con- 
trol is  passed  if  the  user  wishes 
to  edit  the  raw  data. 

&NUM2  - The  statement  number  to  which  con- 
trol is  passed  if  the  user  wishes 
to  view  the  analysis  of  variance 
table  and  response  equation. 

b.  Description 

This  subroutine  allows  the  user  to  choose  to 

plot  Cl)  cross-sections  of  the  response  surface, 

(2)  confidence  intervals  about  predicted  values  or 

(3)  contours  of  the  response  surface.  The  function 

of  this  routine  is  one  of  control. 

c.  Subroutine  called 

EOBINT,  GRINIT,  GCEOB , MASKIT,  NEWPGE , STUFF, 

SNAP,  TWAIT,  GERAS,  GRRLSE , CONTUR,  CONF , SPLOT 

d.  COMMON  areas 

unlabeled  COMMON 

e.  Mode  of  Operation 

COMFORT 
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3.19  Subroutine  SPLOT 


a.  Calling  Sequence 

CALL  SPLOT 

b.  Description 

This  subroutine  plots  the  response  surface 
against  a selected  factor  with  all  other  factors  set 
at  some  specified  set  of  values.  Up  to  four  plots 
may  be  viewed  simultaneously.  If  the  user  attempts  to 
extrapolate,  a warning  is  given. 

c.  Subroutines  called 

EORINT,  INITP , PASKIT,  EOBP , PEWPGE,  GRAXES , 
PSTUFF,  PSNAP,  PWAIT,  GREPLX , INX,  PPLUCK, 
PEWLINE,  FETCH,  REFILL,  GRCHAR,  UVOO,  XCHNGE, 
BNAL,  POLY,  SPOLY,  BPOLY,  PUTUV,  GRGRID , GRPLOT , 
UV99 , RLSEP 

d.  COMMON  areas 

unlabeled  COMMON,  YATDAT 

e.  Mode  of  Operation 

COMPLOT 

f.  Logical  Flow 

The  logical  flow  of  the  SPLOT  subroutine  is  as 
follows : 

i.  The  subroutine  first  determines,  from  the 
user,  the  factor  to  be  used  as  the  abscissa. 
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ii.  It  then  determines,  again  from  the  user,  the 
minimum  and  maximum  values  to  be  used  for  the 
abscissa.  If  the  user  requests  values  which  will 
result  in  extrapolation,  he  is  so  warned, 

iii.  The  values  to  be  used  for  the  remaining  factors  are 
obtained  from  the  user.  Multiple  values  may  be 
entered  for  each  factor  so  long  as  the  total  number 
of  plots  does  not  exceed  4. 

iv.  The  coefficients  of  the  polynomial  are  rearranged 

from  the  original  Yates  order  into  a new  Yates  order 
for  which  the  plotting  factor  is  considered  the  last 
factor.  The  method  used  is  explained  in  section 

2.1.5. 

v.  As  in  section  2.1.6,  the  reordered  polynomial  is 
collapsed,  using  the  first  set  of  specified  factor 
values,  into  one  in  terms  of  the  plotting  factor 
only. 

vi.  For  51  points,  equally  spaced  from  the  user- 

indicated  minimum  to  the  maximum,  the  subroutine 
uses  the  reduced  polynomial  from  step  v.  to  calcu- 
late and  plot  the  predicted  response. 


63 


Steps  v.  and  vi.  are  repeated  until  the  requested 
number  of  plots  have  been  displayed. 
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3.1.10  Subroutine  CONF 


a.  Calling  Sequence 

CALL  CONF 

b.  Description 

The  subroutine  plots  the  response  surface  dis- 
played with  upper  and  lower  95%  confidence  limits 
against  a selected  factor  with  all  other  factors  set 
a some  specified  set  of  values.  Only  one  plot  may 
be  viewed  per  frame,  If  the  user  attempts  to 
extrapolate,  a warning  is  given. 

c.  Subroutines  called 

EOBINT,  INITP,  EOBP , PEWPGE , GRAXES , PASKIT, 
PSTUFF,  PSNAP,  PWAIT,  GREPLX , INX,  P LUCK, 
PEWLINE,  FETCH,  REFILL,  GRCHAR,  UVOO , EXCHNGE , 
POLY,  ORTH,  ANAL,  SPOLY , BPOLY , PUTUV,  GRPLOT, 
UV99 , RLSEP 

d.  COMMON  areas 

unlabeled  COMMON,  YATDAT , BAKDAT,  DIRAC 

e.  Mode  of  Operation 

COMPLOT 

f.  Logical  Flow 

The  logical  flow  of  the  CONF  subroutine  is  as 
follows 

i.  The  subroutine  first  determines,  from  the 

user,  the  factor  to  be  used  as  the  abscissa. 
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ii.  It  then  determines,  again  from  the  user,  the  minimum 
and  maximum  values  to  be  used  for  the  abscissa.  If 
the  user  requests  values  which  will  result  in 
extrapolation,  he  is  so  warned. 

iii.  The  (single)  values  to  be  used  for  the  remaining 
factors  are  obtained  from  the  user. 

iv.  The  coefficients  of  the  polynomial  are  rearranged 

from  the  original  Yates  order  into  a new  Yates  order 
for  which  the  plotting  factor  is  considered  the  last 
factor.  The  method  used  is  explained  in  section 

2.1.5. 

v.  The  q values  (for  the  confidence  intervals)  defined  in 
section  2.1.7  are  calculated  for  all  the  factors, 
omitting  the  q value  for  the  plotting  factor. 

vi.  As  in  section  2.1.6,  the  reordered  polynomial  is 
collapsed,  using  the  (single)  specified  factor 
values,  into  one  in  terms  of  the  plotting  factor 
only. 
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vii.  For  51  points  equally  spaced  from  the  user- 
indicated  minimum  to  the  maximum,  the  subroutine 
uses  the  reduced  polynomial  from  step  vi.  to 
calculate  and  plot  the  predicted  response. 

viii.  Additionally,  the  remaining  q values  are  calculated 
for  each  of  the  51  points  and  the  corresponding 
confidence  intervals  are  calculated  and  plotted  — 
the  character  L is  used  for  the  lower  limit;  U,  for 
the  upper  limit. 
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3.1.11  Subroutine  CONTUR 


a.  Calling  Sequence 

CALL  CONTUR 

b.  Description 

This  subroutine  plots  contours  of  the  response 
surface  for  given  values  of  the  predicted  response 
against  two  selected  factors  with  all  other  factors 
set  at  some  specified  set  of  values.  Up  to  four  con- 
tours may  be  viewed  simultaneously.  If  the  user 
attempts  to  extrapolate,  a warning  is  given. 

c.  Subroutines  called 

EOBINT,  INITP,  EOBP , PEWPGE , GRAXES , PASKIT, 
PSTUFF,  PSNAP , PWAIT,  GREPLX , INX,  ZTORAW, 

PPLUCK , DEWLINE,  FETCH,  REFILL,  GRCGAR,  UVOO , 
ANAL,  LTNEW,  POLY,  BPOLY , ROOTER,  PUTUV,  GRGRID , 
GRPLOT,  UV99 , RLSEP 

d.  COMMON  areas 

un labeled  COMMON,  YATDAT , DIRAC 

e.  Mode  of  Operation 

COMPLOT 

f.  Logical  Flow 

The  logical  flow  of  the  CONTUR  subroutine  is 
as  follows 

i.  The  subroutine  first  determines,  from  the  user, 
the  two  factors  which  are  to  be  plotted  against 
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each  other. 

ii.  It  then  determines,  again  from  the  user,  the  mini- 
mum and  maximum  values  for  which  each  of  the  factors 
is  to  be  plotted. 

iii.  The  (single)  values  to  be  used  for  the  remaining 
factors  (if  any)  are  determined  from  the  user. 

iv.  The  predicted  response  for  which  the  contour  is  to 
be  plotted  is  then  read  in  from  the  user. 

v.  The  coefficients  of  the  polynomial  are  rearranged 

from  the  original  Yates  order  into  a new  Yates  order 
for  which  the  plotting  factor  with  the  smaller 
number  of  levels  has  the  last  position;  and  the  other 
plotting  factor,  next  to  last  position. 

vi.  As  in  section  2.1.6,  the  polynomial  is  then 

collapsed,  using  the  (single)  specified  factor  values, 
into  one  in  terms  of  the  two  plotting  factors  only. 

vii.  The  predicted  response  is  then  subtracted  from  the 
constant  term  of  the  polynomial. 

viii.  For  51  points,  equally  spaced  from  minimum  to  maxi- 
mum, the  polynomial  (new  in  two  variables,  adjusted 
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for  the  predicted  value)  is  further  reduced  to  one 
involving  only  the  last  factor.  The  roots  of  this 
resulting  polynomial  are  extracted.  Those  roots 
within  the  user-specified  range  are  paired  with  the 
corresponding  next-to-last  factor  value  and  are 
subsequently  plotted.  If  no  acceptable  roots  are 
found  for  any  of  the  51  points,  a message  of  this 
condition  is  displayed  to  the  user. 

The  subroutine  allows  the  user  the  option  of  typing  in 
another  predicted  response,  causing  steps  vii  through 
viii  to  be  repeated.  This  procedure  continues  until 
a fifth  plot  is  requested.  At  that  time  the  four 
previous  plots  are  erased  from  the  screen  and  the 
fifth  plot  is  placed  on  the  screen  as  the  first  of  a 
new  sequence  of  four  plots. 


3.1.13  Subroutine  ANAL 


a.  Calling  Sequence 

CALL  ANAL (NN, II, 12, 13, 14) 

NN  - An  integer  which  indicates  the 
Yates  order  position 
Ik  - An  integer  which  contains  the 

Yates  setting  for  the  kth  factor. 

b.  Description 

This  function  receives  as  input  the  position 
to  which  a vector  of  factor  settings  would  belong 
for  a given  Yates  ordering.  It  returns,  as  in 
section  2.1.2,  the  vector  of  factor  settings. 

c.  Subroutines  called 

none 

d.  COMMON  areas 

YATDAT 

e.  Mode  of  Operation 

computational 
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3.1.13  Subroutine  BNAL 


a.  Calling  Sequence 

CALL  BNAL (NN ,11,12,13,14, LVL) 

NN  - Refer  to  ANAL 

Ik  - Refer  to  ANAL 

' LVL  - An  integer  vector  which  contains 

the  levels  of  the  factors. 

b.  Description 

Refer  to  ANAL 

c.  Subroutines  called 

none 

d.  COMMON  areas 

; 

none 

e.  Mode  of  Operation 

computational 
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3.1.14  Function  Subprogram  LT 


a.  Calling  Sequence 

NY  = LT  (11,12,13,14) 

Ik  - An  integer  which  contains  the 

YATES  setting  for  the  kth  factor. 

b.  Description 

This  function  receives  as  input  the  factor 
settings  for  up  to  4 factors  and  returns  the  position 
to  which  this  vector  would  belong  in  the  YATES  order. 
The  method  is  presented  in  section  2,1.2. 

c.  Subroutines  called 

none 

d.  COMMON  areas 

YATDAT 

e.  Mode  of  Operation 

computational 


a.  Calling  Sequence 

NY  = LTNEWCLVL, 11,12,13,14) 

LVL  - An  integer  vector  which  contains 

the  levels  of  the  factors. 

Ik  - Refer  to  LT. 

b.  Description 

Refer  to  LT . 

c.  Subroutines  called 

none 

d.  COMMON  areas 

none 

e.  Mode  of  Operation 

computational 
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3.1.17  Subroutines  POLY  and  BPOLY 


a.  Calling  Sequence 

CALL  POLY (A,X,N) 

CALL  BPOLY (A,X,N) 

A - A real  vector  containing  the  coef- 

ficients (in  decreasing  order  for 
POLY;  increasing  for  BPOLY) 

N - The  degree  of  the  polynomial 

X - The  value  at  which  to  evaluate 

the  polynomial 

b.  Description 

This  subroutine  uses  synthetic  division,  as 
described  in  section  2.1.6,  to  evaluate  a simple 
polynomial  expression. 

c.  Subroutines  called 

none 

d.  COMMON  areas 

none 

e.  Mode  of  Operation 

computational 


I 
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3.1.18  Subroutine  ROOTER 


a.  Calling  Sequence 

CALL  ROOTER (S,R, NR ,LVL) 

S - A real  vector  which  contains  the 

coefficients  (in  increasing  order) 
of  the  polynomial  whose  roots  are 
to  be  found. 

R - A real  vector  which  will  contain 
the  roots  of  the  polynomial 
NR  - The  number  of  roots  extracted. 

LVL  - The  number  of  coefficients  in  S 

b.  Description 

This  subroutine  extracts  the  roots  of  a 

polynomial  of  degree  3 or  less. 

c.  Subroutines  called 

none 

d.  COMMON  areas 

none 

e.  Mode  of  Operation 

computational 
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3.1.19  Subroutine  SPOLY 

a.  Calling  Sequence 

CALL  SPOLY (B , VAL , I STOP , NORDR , A) 

B - A real  vector  containing  coef- 

ficients of  a mixed  polynomial 
arranged  in  the  YATES  order. 

VAL  - A real  vector  of  values  for  the 

variables  for  which  the  polynomial 
is  to  be  collapsed. 

ISTOP  - The  number  of  variables  for  which 
the  polynomial  is  to  be  collapsed. 
NORDER-  The  order  of  the  variables  relative 
to  the  original  order, 

A - A real  vector  containing  the  re- 

arranged coefficients. 

b.  Description 

This  subroutine  collapses  a mixed  polynomial  ex- 
pression arranged  in  the  Yates  order  by  the  technique 

specified  in  section  2.1.6. 

c.  Subroutines  called 

BPOLY 

d.  COMMON  areas 

YATDAT 

e.  Mode  of  Operation 


computational 
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1.20  Subroutine  XCHNGE 


a.  Calling  Sequence 

CALL  XCHNGE (JF,COF) 

JF  - An  integer  which  indicates  a 

factor  number  with  which  to  inter- 
change the  last  factor. 

COF  - A vector  which  will  return  the 
coefficients  arranged  in  the 
revised  YATES  order. 

b.  Description 

This  subroutine  interchanges  the  coefficients 
of  the  response  surface  coefficients  under  the 
assumption  that  factor  JF  and  the  last  factor  to  be 
input  have  been  exchanged.  The  procedure  followed 
can  be  found  in  section  2.1.5. 

c.  Subroutines  called 

ANAL,  LTNEW 

d.  COMMON  areas 

YATDAT 

e.  Mode  of  Operation 

computational 
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3.1.21  Subroutine  ZTORAW 


a.  Calling  Sequence 

CALL  ZTORAW (C , J ) 

C - A real  vector  which  returns  the 

coefficients  of  the  polynomial 
required  to  convert  a ?.  value  back 
to  its  corresponding  raw  value. 

J - An  integer  which  indicates  the 

factor  for  which  the  transformation 
coefficients  are  to  be  calculated. 

b.  Description 

This  subroutine  provides  the  coefficients  of  the 
polynomial  which  is  used  to  convert  a z value  back  to 
the  corresponding  raw  value.  The  process  is 
accomplished  directly  from  the  coefficients  of  the 
inverse  transformation  which  are  located  in  the 
YATDAT  COMMON  area. 

c.  Subroutines  called 

none 

d.  COMMON  areas 

YATDAT 

e.  Mode  of  Operation 

computational 
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3 . 2 The  BLOWUP  Program 


This  section  describes  the  computer  implementation 
of  the  spline  technique  for  interpolation  of  statistical 
functions.  The  results  of  the  interpolation  may  be  dis- 
played in  plot  or  table  form. 

3.2.1  The  Main  program 


a.  Loading  instructions 

$LINK  BLOWUP 

b.  Description 

This  program  uses  spline  interpolation  to  dis- 
play a range  of  values  for  any  function  available  in 
the  GMS  calculator  mode.  Actual  calculations  are 
made  for  11  equally  spaced  points.  A spline  fit  is 
then  made  to  these  points.  The  user  may  employ  this 
spline  function  to  plot  the  resulting  curve  or  to 
display  tables  of  the  values. 

c.  Subroutines  called 

EOBINT,  PFINT,  PLOTS,  GRINIT,  GCEOB , NEWPGE , 
GCPFK,  STUFF,  SNAP,  TWA IT , GRRPLX , INX , FETCH, 
GRRLSE , INITP,  PFKP , EOBP,  GRAXES,  GRCHAR , 
GRGRID , UVOO,  ENSYM,  EVALL,  PUTUV , SPLCON, 
GRPLOT,  UV99 , SPLINE,  PWAIT,  REFILL,  RLSEP , 


GREPLY,  XBLANK 


d.  COMMON  areas 

none 

e.  Mode  of  Operation 

COMFORT,  COMPLOT 

f.  Logical  Flow 

The  flow  of  the  program  is  displayed  in 
Figures  3. 2, 3 and  3.2.2, 


FLOWCHART  OF  BLOWUP  PLOT  ROUTINE 
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FLOWCHART  OF  BLOWUP  PLOT  ROUTINE 
(CONTINUED) 


FIGURE  3.2.2b 
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. 2 Subroutine  SPLCON 


a.  Calling  Sequence 

CALL  SPLCON (X,Y,M,C) 

X - A real  vector  containing  the 
independent  variable, 

Y - A real  vector  containing  the 

dependent  variable. 

M - The  number  of  points  to  fit. 

C - A 4x11  real  matrix  which  will 

return  the  coefficients  of  the 
cubic  polynomials  which  have  been 
fitted  through  the  X,Y  pairs. 

b.  Description 

This  subroutine  accepts  as  input  a set  of 
ordered  pairs  (xi,y^).  Using  the  spline  technique 
presented  in  section  2.2,  it  determines  the  coef- 
ficients of  the  cubic  polynomials  which  pass  be- 
tween the  points. 

c.  Subroutines  called 

none 

d.  COMMON  areas 

none 

d.  Mode  of  Operation 

computational 
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3.2.3  Subroutine  SPLINE 


a.  Calling  Sequence 

CALL  SPLINE (X , Y , M, C , XINT , YINT) 

X - A real  vector  containing  the 

independent  variable. 

Y - A real  vector  containing  the 

depencent  variable. 

M - The  number  of  points. 

C - A 4x11  real  matrix  which  contains 

the  coefficients  of  the  previously 
fitted  cubics. 

XINT  - The  X value  for  which  the  inter- 
polation is  to  be  made. 

YINT  - The  returned  interpolated  value  of 
Y. 

b.  Description 

This  subroutine  uses  the  coefficients  determined 
by  the  SPLCON  subroutine  to  return  an  interpolated 
value  of  Y for  a given  value  of  X. 

c.  Subroutines  called 

none 

d.  COMMON  areas 

none 

e.  Mode  of  Operation 

computational 
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3 . 3 Disk  Input  to  YATES 

Even  for  a factorial  experiment  of  moderate  size  it 
becomes  a time-consuming  task  to  type  in  the  data  to  the 
YATES  program.  Additionally,  the  user  who  may  wish  to 
examine  the  response  surface  for  his  data  during  several 
terminal  sessions  would,  justifiably,  reject  the  prospect 
of  re-typing  his  data  on  each  occasion.  For  these  reasons, 
the  system  has  been  written  so  that  a user  may  "spool"  his 
data  to  a permanent  disk  for  later  input  to  the  program. 

It  is  important  for  the  potential  user  of  this  program  to 
know  the  proper  format  for  the  storage  of  the  data. 

The  assumption  is  that  the  data  are  to  be  processed 
by  a FORTRAN  program.  The  use  of  any  other  programming 
language  would  simply  require  the  translation  of  these 
specifications  into  those  compatible  with  the  other 
language.  The  file  is  to  be  set  up  as  a FORTRAN  direct- 
access  unformatted  file  with  the  following  FORTRAN  state- 
ment 

DEFINE  FILE  19  (270 , 6 ,U, IREC) 
which  indicates  that 

a.  the  program  will  write  to  unit  19 

b.  the  file  is  to  consist  of  a maximum  of  270  records 

c.  the  record  length  is  fixed  at  6 words  (24  bytes) 

d.  the  file  is  to  be  created  with  unformatted  WRITES 

e.  the  record  pointer  is  the  integer  variable  IREC 
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The  following  variables  are  to  be  DIMENSIONed  exactly 
as  shown 

DIMENSION  LVL ( 4 ) , NAME (8) , CONCOM  (4, 4) ,REP(6) 

where 

LVL (I)  is  the  number  of  levels  for  factor  I. 

NAME (2*1-1)  and  NAME  (2*1)  contain  the  (up  to)  8 
character  name  of  factor  I. 

CONCOM  (I , J)  is  the  setting  for  the  Jth  level  of 
factor  I. 

The  following  information  must  be  written  as  shown 
WRITE (19 • 257)  NF ,NREP , LVL 
WRITE  (19 ' 260)  NAME , CONCOM ,VSE 

where 

NF  is  the  number  of  factors. 

NREP  is  the  number  of  replications 
VSE  is  an  estimate  of  the  mean  square  error  (re- 
quired only  if  NREP  = 1) 

LVL,  NAME  and  CONCOM  are  as  defined  above. 

The  observations  are  to  be  written  sequentially  in 
the  Yates  order  (see  Chapter  2)  with  factor  1 varying  most 
rapidly,  factor  2 next,  etc.  Each  record  contains  all 
replications  (limit  of  6)  for  each  factor  combination. 
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Example : 

DO  50  I = 1,48 

• • • 

WRITE (19 'I)  REP 
50  CONTINUE 

where  the  vector  REP  contains  all  of  the  observations 
made  at  each  factor  combination.  Note  that  because  of 
the  predetermined  ordering,  the  actual  values  of  the 
factor  settings  do  not  have  to  be  written  into  each  record. 
This  information  is  determined  from  CONCOM. 
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3 . 4 The  Addition  of  a Function  to  the  BLOWUP  Program 

Any  double  precision  FORTRAN  function  subprogram, 
the  arguments  of  which  are  all  in  double  precision  float- 
ing point,  may  be  added  to  the  BLOWUP  program. 

3.4.1  Permanent  Additions 

The  procedure  for  permanent  addition  consists  of 
adding  the  name  of  the  function  to  a table  in  INTERP  [17], 
compiling  the  FORTRAN  function  and,  finally,  link-editing 
the  BLOWUP  program.  To  aid  in  the  explanation  of  the 
process,  suppose  that  we  wish  to  add  the  double  precision 

I 

function,  say,  FUN  to  the  system.  The  first  step  is  to 
add  the  function  name  to  the  FUNCNMS  table  in  the 
assembler  program  INTERP.  The  entry  should  be  made  after 
the  last  existing  entry  and  before  the  statement 
#FUNC  EQU  (*-FUNCNMS) /8 
The  new  entry  should  be  punched  as  follows: 

DC  CL8 ' FUN ' 

After  this  step  has  been  done,  the  process  may  be 
completed  as  in  Figure  3.4.1. 

3.4.2  Temporary  Additions 

> The  function  names  FUN1,  FUN2,  FUN3  and  FUN4  have 

been  reserved  for  temporary  use.  In  order  to  add  a function 
to  the  library  temporarily,  the  user  may  give  his  function 
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one  of  these  reserved  names. 


JOB  CONTROL  LANGUAGE 


//  (standard  JOB  card) 

//*MAIN  SYSTEM=SY65 
/ /STEP1  EXEC  ASMFv 

/ /ASM . SYSLIB  DD  DSN=SYS1 .UGAMAC , DISP=SHR , DCB=BLKSIZE=3 5 20 
//  DD  DSN=SYS1 . MACLIB , DISP=SHR 
//ASM. SYS IN  DD  * 

(The  INTERP  source  with  the  table  modification) 
//STEP2  EXEC  FORTGCL 
/ /FORT . SYS IN  DD  * 

(The  FORTRAN  function  to  be  added) 

/ /LKED . SYSLMOD  DD  DSN=SYS1 .GRAPHLIB (BLOWUP) ,DISP=SHR, 

//  SPACE= (TRK,  (1,0,1)  ) 

//LKED. TEMP  DD  DSN=SYS1 . GRAPHLIB , DISP=SHR 
//LKED.SYSIN  DD  * 

INCLUDE  TEMP (BLOWUP) 

ENTRY  MAIN 

/* 


Figure  3.4.1 


9] 


Example : 


FUNCTION  FUN 3 (A , B , C) 


Only  STEP2  of  the  JCL  listing  of  Figure  3.4.1  is 
to  be  used  in  this  case.  STEP1  should  be  completely 
omitted.  The  added  function  will  remain  in  the  system 
until  replaced  by  a different  function  with  the  name 
FUN 3 . At  present,  FUNl  evaluates  the  c.d.f,  of  a largest 
characteristic  root. 


AD-A036  346 


UNCLASSIFIED 


AO  * 

AC  36  346 


6E0R6IA  UNIV  ATHENS  DEPT  OF  STATISTICS  AND  COMPUTER— ETC  F/6  S 
•RAPHICAL  AIDS  FOR  STATISTICAL  COMPUTATION. <U> 
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3.5  Utility  Subroutines 
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The  implementation  of  the  interactive  graphics  pro- 
grams described  in  this  chapter  required  the  creation  of 
a number  of  non-mathematical  systems  subprograms . The 
routines  were  written  to  facilitate  the  processing  of 
both  input  from  the  IBM  2250  graphics  console,  and  output 
the  display  screen.  The  purpose  of  this  section  is  to 
describe  the  operaion  of  these  routines. 

3.5.1  Subroutine  CHECK 


a.  Calling  Sequence 

CALL  CHECK (&NUM1 , &NUM2 , MODE) 

&NUM1  - The  statement  number  to  which  con 
trol  is  returned  if  an  unexpected 
response  is  made  by  the  user. 
&NUM2  - The  statement  number  to  which  con 
trol  is  returned  if  the  user  indi 
cates  termination  of  the  program. 
MODE  - This  variable  must  have  been  set 
1 if  the  program  is  in  COMFORT  mo 
or  to  2 if  the  program  is  in  COMP 
mode . 

b.  Description 

The  subroutine  first  determines  whether  or  not 
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the  user  has  depressed  key  31;  if  so,  return  is  made 
to  the  second  statement  number  in  the  calling 
sequence.  If  not,  the  subroutine  determines  whether 
or  not  the  user  has  depressed  key  15;  if  so,  all  of 
the  lights  on  the  program  function  keyboard  are 
turned  on,  SCOPLT  is  called  to  generate  hard-copy  plot 
instructions  to  disk  and  the  program  function  keyboard 
lights  are  restored  to  their  original  state.  Return 
is  then  made  to  the  first  statement  number  in  the 
calling  sequence.  If  the  type  of  interrupt  is  not 
one  that  is  expected  of  ir  a key  which  is  not  enabled 
is  depressed,  a return  is  made  to  the  first  statement 
number  in  the  calling  sequence;  otherwise,  a standard 
return  is  made, 
c.  Subroutines  called 

PFINT,  GCPFK,  PFKP , SCOPLT 

c.  COMMON  areas 

unlabeled  COMMON 

d.  Mode  of  Operation 

COMFORT,  COMPLOT 
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3.5.2  Subroutine  GREPLX 

a.  Calling  Sequence 

CALL  GREPLX  (TEXT,  NC) 

Refer  to  GRRPLX  for  argument  definition. 

b.  Description 

Refer  to  GRRPLX 

c.  Subroutines  called 

GREPLY,  XBLANK 

d.  COMMON  areas 

none 

e.  Mode  of  Operation 

COMP LOT 
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3.5.3  Subroutine  GRRPLX 


a.  Calling  Sequence 

CALL  GRRPLX  (TEXT , NC) 

TEXT  - The  location  of  the  area  into  which 
to  place  the  text  string  to  be  re- 
ceived from  the  keyboard. 

NC  - The  maximum  number  of  characters 
of  text  expected. 

b.  Description 

The  subroutine  immediately  issues  a wait  for  a 
reply  from  the  keyboard.  When  the  reply  is  received, 
XBLANK  is  called  to  remove  all  blanks  from  the  text 
string.  A standard  return  is  then  made. 

c.  Subroutine  called 

GRRPLY,  XBLANK 

d.  COMMON  areas 

none 

e.  Mode  of  Operation 

COMFORT 
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3.5.4  Subroutine  MASKIT 

a.  Calling  Sequence 
CALL  MASKIT  (K) 

K - an  index  to  the  desired  program  function 
key  mask 

b.  Description 

The  subroutine  contains  a table  of  all  program 
functions  by  masks  which  will  be  used  during  the 
execution  of  the  program.  Upon  entry,  the  K mask  is 
selected  and  placed  in  unlabeled  COMMON  and  program 

. , function  key  lights  corresponding  to  1 bits  in  the 

1 • 

mask  are  lighted. 

c.  Subroutine  called 

GCPFK 

| I 

k 4 

d . COMMON  areas 

I 4 

unlabeled  COMMON 

* 

e.  Mode  of  Operation 
I « 

COMFORT 

| % 
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3.5.5  Subroutine  NEWPGE  (STUFF,  SNAP,  PLUCK,  NEWLINE) 

a.  Calling  Sequences  (five  entry  points) 

CALL  NEWPGE 

CALL  STUFF  (K,  ALINE) 

CALL  SNAP 

CALL  PLUCK  (K,  ALINE) 

CALL  NEWLINE  (K,  ALINE) 

K - An  integer  specifying  an  appropriate 
number . 

ALINE  - The  location  of  a 68  character  text 
string. 

b.  Description 

An  entry  at  NEWPGE  causes  an  output  buffer,  OUT, 
of  3240  (or  45  x 72)  characters  to  be  set  to  blanks 
with  every  72nd  character  set  to  hexadecimal  '15' 

(EOL  code) . 

An  entry  at  STUFF  causes  the  kth  line  of  the 
output  buffer  to  be  replaced  with  the  contents  of 
ALINE. 

An  entry  at  SNAP  causes  the  output  buffer  to  be 
displayed  to  the  user. 

An  entry  at  PLUCK  causes  the  Kfc^  line  of  the 
output  buffer  to  be  copied  to  ALINE  for  return  to 
the  calling  routine. 

An  entry  at  NEWLNE  causes  the  Kfc^  line  of  the 


output  buffer  to  be  set  to  blanks 

c.  Subroutine  called 

GERAS,  GRDPLY 

d.  COMMON  areas 

none 

e.  Mode  of  Operation 

COMFORT 
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3.5.6  Subroutine  PASKIT 


a.  Calling  Sequence 

CALL  PASKIT  (K) 

(refer  to  MASKIT  for  argument  definition) 

b.  Description 

refer  to  MASKIT 

c.  Subroutine  called 

PFKP 

d.  COMMON  areas 

unlabeled  COMMON 

e.  Mode  of  Operation 


COMP LOT 
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A.  Calling  Sequences  (five  entry  points) 

CALL  PEWPGE 

CALL  PSTUFF  (K,  ALINE) 

CALL  PS NAP 

CALL  PPLUCK  (K,  ALINE) 

CALL  PEWLINE  (K,  ALINE) 

(refer  to  NEWPGE  for  argument  definition) 

b.  Description 

(refer  to  NEWPGE) 

c.  Subroutine  called 

REFILL,  GRCHAR 

d.  COMMON  areas 

none 

e.  Mode  of  Operation 

COMP LOT 
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3.5.8  Subroutine  PWAIT 

f 9 

A.  Calling  Sequence 

CALL  PWAIT  II,  J,  K,  L) 

(refer  to  TWA IT  for  argument  definition) 
, b.  Description 

Refer  to  TWA IT 

c.  Subroutines  called 

, GWAIT,  CHECK,  PLOT,  RLSEP 

d.  COMMON  areas 

unlabeled  COMMON 

e.  Mode  of  Operation 

I 

COMPLOT 

* 

| 
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3.5.9  Subroutine  SPACE 
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a.  Calling  Sequence 

CALL  SPACE  (NS) 

NS  - the  number  of  blank  lines  to  be  displayed 
to  the  user 

b.  Description 

The  subroutine  causes  NS  blank  lines  to  be 
displayed  to  the  user. 

c.  Subroutine  called 

GRDPLY 

d.  COMMON  areas 

none 

e.  Mode  of  Operation 

COMFORT 


L 
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3.5.10  Subroutine  TWAIT 


a.  Calling  Sequence 

CALL  TWAIT  (I,  J,  K,  L) 

I - 1 if  program  function  by  interrupt  is 
to  be  allowed;  0,  otherwise. 

J - 1 if  light  pen  interrupt  is  to  be 
allowed;  0,  otherwise. 

K - 1 if  keyboard  interrupt  is  to  be 
allowed?  0,  otherwise. 

L - 1 if  time  interrupt  is  to  be  allowed; 

0,  otherwise. 

b.  Description 

This  subroutine  places  the  program  in  a wait- 
state  by  calling  the  subroutine  GWAIT.  Immediately 
after  the  occurrence  of  an  interrupt,  the  subroutine 
CHECK  is  called.  A nonstandard  RETURN  1 causes  the 
subroutine  to  close  the  graphics  system,  to  call  PLOT 
in  order  to  close  the  hardcopy  file,  and  then  to 
terminate  execution  of  the  program.  A nonstandard 
RETURN 2 returns  to  the  original  call  to  GWAIT;  thus, 
ignoring  the  interrupt.  A standard  return  from  CHECK 
causes  TWAIT  to  issue  a standard  return. 

c.  Subroutine  called 

GWAIT,  CHUCK,  PLOT,  GRRLSE 


t 
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d.  COMMON  areas 

unlabeled  COMMON 

e.  Mode  of  Operation 

COMFORT 
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CHAPTER  IV 


APPLICATIONS  OF  RESPONSE  SURFACE  UNIT 


Many  experimental  situations  involve  the  examination 
of  the  quantity  or  quality  of  the  output  of  a process 
which  has  several  factors  as  input.  Normally  the  first 
analysis  performed  on  data  gathered  from  this  type  of  ex- 
periment is  an  analysis  of  variance.  This  statistical 
technique  allows  the  experimenter  to  examine,  not  only  the 
significance  of  the  effects  of  the  factors,  but  also  the 
effects  of  the  interactions  of  several  factors.  In  many 
cases,  the  experimenter  is  attempting  to  find  a specific 
combination  of  factor  settings  which  will  maximize  the 
yield  of  the  process.  This  is  usually  accomplished  by 
fitting  mixed  polynomials  through  the  response  measured  at 
each  setting  of  the  factors.  This  polynomial  approximation 
may  then  be  used  to  interpolate,  so  as  to  locate  the  max- 
imum value.  The  ideal  situation  would  be  to  fit  the  sur- 
face only  to  responses  in  the  vicinity  of  the  maximum  and, 
to  study  the  characteristics  of  the  surface  by  graphing 
cross-sections  or  projection  of  the  surface  for  each  of  the 
several  variables.  However,  attempts  to  sketch,  by  hand, 
the  various  2-dimensional  projections  of  a response  surface 
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are  so  time-consuming  that  most  users  would  prefer  to  re- 
sort to  numerical  approaches  in  studying  the  surface 
characteristics  near  the  suspected  maximum.  Many  numerical 
methods  have  been  developed  to  locate  the  maximum  of  a 
function  of  several  variables.  It  should  be  pointed  out 
that  these  methods  were  developed  to  circumvent  the 
difficulty  of  visualizing  the  surface  and  thus  do  not 
involve  characteristics  that  could  be  obtained  from 
graphical  representations.  However,  all  of  these  numerical 
methods  require  some  initial  values  for  the  input  variables. 
If  the  surface  is  involved,  even  in  the  best  of  numerical 
methods,  an  improper  choice  of  initial  values  may  lead  to 
solutions  far  away  from  the  optimum.  The  interactive 
graphics  programs  presented  here  have  been  developed  to 
enable  the  experimenter  to  use  the  computer  in  an  effective 
fashion  to  visualize  many  different  projections  of  an 
intricate  surface. 


4.1  Response  Surfaces 


To  illustrate  the  use  of  the  interactive  YATES 


program  for  the  analysis  of  data  from  a factorial  experi- 
ment, this  section  follows  a step-by-step  interactive 


session  during  which  the  user  enters  the  data  to  the 
program,  performs  an  analysis  of  variance  and  finally, 
calculates  and  plots,  in  various  formats,  the  response 
surface.  This  example  is  based  on  data  appearing  in 


107 

Davies  [ 7 ],  page  519,  Table  11,4.  The  illustration  in- 

2 

volves  a 3 factorial  experiment  designed  so  as  to 
facilitate  the  location  of  the  point  of  maximum  yield. 
Figures  4.1.1  through  4.1,30  represent  actual  displays  as 
they  appear  on  the  screen  of  an  IBM  2250  graphics  terminal. 
Figure  4.1.1  presents  the  capabilities  and  limitations  of 
the  program  to  the  user.  Note  that  data  may  be  entered 
from  the  keyboard,  as  in  this  example,  or  they  may  have 
been  stored  previously  on  a disk  through  a program  operating 
in  batch  mode,  as  described  in  section  3.3. 

In  figure  4.1.2  the  user  has  indicated  to  the  pro- 
gram that  he  has  two  factors  and  only  one  replication  per 
cell.  As  it  is  not  possible  to  estimate  the  mean  square 
error  with  only  one  observation  per  cell,  the  program 
asks  the  user  to  supply  an  estimate.  As  suggested  by 
Davies  [ 7] , prior  knowledge  of  the  process  provides  an 
estimate  of  0.6,  which  has  been  entered.  In  Figure  4.1,3 
the  program  is  asking  for  the  names  by  which  the  user 
wishes  to  refer  to  his  factors.  For  convenience,  the  user 
may  refer  to  them  as  FACA  and  FACB;  however,  in  this  case 
the  user  enters  the  names  XI  and  X2  as  in  Davies  [7  ] , 

In  figure  4.1.4  the  user  has  replied  that  factor  XI 
has  three  levels,  as  has  factor  X2.  At  this  point  the  user 
may  correct  any  input  errors  that  he  might  have  made.  In 
Figure  4.1.5  the  user  has  been  given  the  opportunity  to 
default  to  values  of  1,  2,  3,  etc.  or  to  enter  the  actual 
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DAVIES  EXAMPLE  - FRAME  1 


OUTPUT  AREA 

THIS  UNIT  HILL  PERFORM  AN  ANALYSIS  OF  VARIANCE  FOR  ANY 
C0f1PLETE  FACTORIAL  DESIGN  OF  THE  FORH 

R S T 
2 3 4 

HITH  R+6*T  LESS  THAN  OR  EQUAL  TO  4 
FOR  UP  TO  0 REPLICATIONS. 

IF  OtSIRED.  THE  UNIT  HILL  ALSO  DETERMINE  THE  EQUATION  OF 
THE  RESPONSE  SURFACE  AND.  FURTHER.  HILL  ALLOH  THE  USER  TO 
EXAMINE  PLOTS  OF  THIS  SURFACE. 

AT  ANY  POINT  OURING  THE  SESSION.  THE  USER  MAY  RETURN  TO  THE 
GMS  MONITOR  BY  DEPRESSING  PROGRAM  FUNCTION  KEY  31. 

°l EASE  DEPRESS  EITHtR 

KEY  1 IF  YOU  HISH  TO  ENTER  DATA.  OR 
KEY  2 IF  YOUR  DATA  ARE  STORED  ON  DISK. 


REPLY  AREA 


FIGURE  4.1.1 


k. 
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DAVIES  EXAMPLE  - FRAME  2 


OUTPUT  AREA 

PLEASE  ENTER  THE  NUMBER  0 F FACTORS. 

2 

PLEASE  ENTER  THE  NUMBER  OF  REPLICATIONS. 

1 

ENTER  AN  ESTIMATE  OF  THE  MSE. 


REPLY  AREA 


FIGURE  4.1.2 


OUTPUT  AREA 

OEPRESS  KEY  1 TO  USE  DEFAULT  NAMES  FACA.  FATS.  ETC. 

OR  ENTER  TNE  NAME  OF  THE  FIRST  FACTOR  fl  JHIT  8 I ETTLRS ) . 
XI 

PLEASE  ENTER  ThE  NAME  OF  THE  LAST  FACTOR. 


Ill 
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DAVIES  EXAMPLE  - FRAME  4 


OUTPUT  AREA 

THERE  HILL  PE  AM  OPPORTUNITY  AT  THE  END  OF  THIS  FRAME 
TO  CORRECT  ANY  INPUT  ERRORS. 

“LEASE  ENTER  THE  NUMBER  OF  LEVELS  FOR  XI 
FACTOR  1 HAS  3 IEVELS. 

PLEASE  ENTER  THE  NUMBER  OF  LEVELS  FOR  X2 
FACTOR  2 HAS  3 LEVELS. 

DEPRESS  KEY  1 TO  CONTINUE  OR  KEY  ? TO  RE-ENTER  l EVEL 


i 

» 
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DAVIES  EXAMPLE  - FRAME  5 


OUTPUT  AREA 

IF  YOU  WISH  THE  LEVELS  OF  THE  FACTORS  TO  BE 
I FOR  LEVEL  1.  2 FOR  LEVEL  2.  ETC.  DEPRESS  KEY  1 

IF  YOU  WISH  TO  ENTER  VALUES  FOR  THE  LEVELS.  DEPRESS  KEY  2 


settings  for  later  response  surface  analysis.  The  set- 
tings do  not  have  to  be  equally  spaced.  In  Figure  4.1.6 
the  user  has  entered  the  values  -1,  0 and  1 for  both  fac- 
tors as  suggested  by  Davies  [ 7] . 

In  Figure  4.1.7  the  program  is  asking  for  input  of 
the  raw  data.  A has  been  identified  as  XI  and  B,  as  X2. 

In  Figure  4.1.8  five  of  the  observations  have  been  enter- 
ed, 71.7  for  levels  1 of  XI  and  X2,  79.2  for  level  2 of  XI 
and  level  1 of  X2,  etc.  In  Figure  4.1.9  the  data  entry  is 
complete.  The  user  has  the  option  of  editing  the  data  or 
performing  the  analysis. 

In  Figure  4.1.10,  the  user  has  elected  to  proceed 
with  the  analysis  and,  consequently,  one  final  question 
has  been  asked.  The  user  may  delete  all  coefficients 
whose  corresponding  F's  are  less  than  one  or  he  may  choose 
to  view  all  of  the  coefficients  calculated.  In  this  case 
the  user  depresses  key  2. 

Figure  4.1.11  displays  the  first  frame  of  the  analy- 
sis of  variance,  the  sums  of  squares  for  the  main  effects 
and  interactions.  Note  that  the  error  term  was  entered  a 
priori  and  has  one  degree  of  freedom  associated  with  it. 
Figure  4.1.12,  the  second  frame  of  the  analysis  of  vari- 
ance, displays  the  mean  squares  for  the  effects  listed 
above.  Figure  4.1.13  displays  the  F values  based  on  the 
mean  square  error  of  0.6  which  was  entered  externally. 

Figure  4.1.14  displays  the  full  response  equation  as 
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DAVIES  EXAMPLE  - FRAME  6 


OUTPUT  AREA 

IF  YOU  WISH  THE  LEVELS  OF  THE  FACTORS  t0  BE 
1 FOR  LEVEL  1 . 2 FOR  LEVEL  2.  ETC.  DEPRESS  KEY  1 

IF  YOU  NISH  TO  ENTER  VALUES  FOR  THE  I EVELS.  DEPRESS  KEY  2 

ENTER.  SEPARATED  BY  COMMAS.  THE  LEVELS  FOR  XI 

-1 .0.1 

ENTER.  SEPARATED  BY  COMMAS.  THE  LEVELS  FOR  X2 

-1 .0.1 

DEPRESS  KE i 1 TO  CONTINUE 


REPLY  AREA 


FIGURE  4.1.6 
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DAVIES  EXAMPLE  - FRAME  7 


OUTPUT  AREA 

ENTER.  SEPARATED  BY  COMMAS.  AIL  REPLICATIONS  FOR 
THE  FACTOR  LEVELS  INDICATED 

A = XI  B = X2 

DEPRESS  KEY  30  TO  EDIT  A LINE  Oh  DATA. 

CELL  A B 

1 1 1 


I 

4 

i 


reply  area 


FIGURE  4.1.7 

i 


i 


DAVIES  EXAMPLE  - FRAME  8 


OUTPUT  AREA 

ENTER.  SEPARATED  BY  COMHAS.  ALL  REPLICATIONS  FOR 
'ME  FACTOR  LEVELS  INDICATED 

A = XI  B - X2 

DEPRESS  i<EY  30  TO  EDIT  A LINt  OF  DATA. 

CELL  A B 

1 11  71.7 

2 2 1 79.2 

3 31  80.1 

4 1 2 75.2 

5 22  81-5 

6 3 2 


REPLY  AREA 


FIGURE  4.1.8 


DAVIES  EXAMPLE  - FRAME  9 


OUTPUT  AREA 

A = XI  0 = X2 

DEPRESS  KEY  30  TO  EDIT  A LINE  OF  DATA, 


CELL 

A B 

1 

1 1 

71  .7 

2 

2 1 

79-2 

3 

3 1 

00.1 

4 

1 2 

75.2 

5 

2 2 

01  .5 

6 

3 2 

79.1 

7 

1 3 

76.3 

0 

2 3 

00-2 

Q 

3 3 

75.8 

DATA 

ENTRY 

IS  COM 

OEPRESS  KEY  1 TO  PERFORM  ANALYSIS 
DEPRESS  KEY  2 TO  REVIEW  OR  EDIT  DATA. 


REPLY  AREA 


FIGURE  4.1.9 
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DAVIES  EXAMPLE  - FRAME  10 


OUTPUT  AREA 

DEPRESS  KEY  1 TO  OELETE  EACH  SINGLE  DEGREE  OF  FREEDOM  F LESS  THAN  1 .0 
DEPRESS  KEY  2 TO  RETAIN  ALL  F VALUES 
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DAVIES  EXAMPLE  - FRAME  11 


OUTPUT  AREA 
ANALYSIS  OF  VARIANCE 
SOURCE  OF  VARIATION 

VI  ■ 

X2  ■ 

XI  «X2  ■ 

ALL  EFFECTS 
ERROR 


SUP  OF 

OF  SQUARES 
2 54.1489 

2 4-10893 

4 20.2177 

B 78. 4^55 

1 0.600000 


' 


DEPRESS  KEY  1 FOR  SUMS  OF  SQUARES. 
DEPRESS  KEY  2 FOR  MEAN  SQUARES. 
DEPRESS  KEY  3 FOR  F VALJES. 

DEPRESS  KEY  30  TO  VJEH  OPTION  TABLE 


REPLY  AREA 


FIGURE  4.1.11 


i 
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DAVIES  EXAMPLE  - FRAME  12 


OF  HERN  SQUARES 
2 27.0744 

2 2.05446 

4 5.05443 

B 9.80944 

1 0.600000 


DEPRESS  KEY  1 FOR  SUMS  OF  SQUARES. 
DEPRESS  KEY  2 FOR  HERN  SQUARES. 
DEPRESS  KEY  3 FOR  F VALUES. 

DEPRESS  KEY  30  TO  'IEM  OPTION  TABLE 


REPLY  AREA 


FIGURE  4.1.12 
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DAVIES  EXAMPLE  - FRAME  13 


OUTPUT  AREA 
ANALYSIS  OF  VARIANCE 
SOURCE  OF  VARIATION 

XI  ■ 

X2  ■ 

XI  »X2  ■ 

ALL  EFFECTS 
ERROR 


2 45.12 

2 3.424 

4 6.424 

8 16.35 

1 


| 

t 


DEPRESS  KEY  1 FOR  SUMS  OF  SQUARES- 
DEPRESS  KEY  2 FOR  MEAN  SQUARES. 
DEPRESS  KEY  3 FOR  F VALUES. 

DEPRESS  KEY  30  TO  VIEW  OPTION  TABLE 


REPLY  AREA 
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DAVIES  EXAMPLE  - FRAME  14 


OUTPUT  AREA 
FACTOR*A  IS  XI 

FACT0R*B  IS  X2 

IN  STANOARO  FACTOR  VALUtS.  Y = 

+ 81.49995  ♦ 1.949996  «A 


-4.350P03 

■A**2 

+ 0.4999999  *B 

-2.224998 

*A*B  - 

-0.4250030  *A**2 

*B 

-1  .800008 

■B«*2 

♦ 0 .25001 52E-01 *A*B**2 

0.6249998 

*A**2 

*B**2 

HHERE*A 

=.  0.0 

* ARAH**2 

( 1 .000000 

)■ 

ARAM 

( 0.0 

) 

MHEREmB 

= 0.0 

* BRAW**2 

♦ l 1 .000000 

)■ 

BRAM 

I o.o 

) 

MINIMUM 

TWO  SICMA 

ERROR  IS  «•  OR  - 

1 .63299 

MAXIMUM 

TWO  SJOMA 

ERROR  IS  OR  - 

2.25092 

i 

t 

4 

DEPRESS  KEY  2b  TO  PPGE  BACKHARO. 

DEPRESS  KEY  29  TO  PACE  FORHARO. 

DEPRESS  KEY  30  TO  VIEW  OPTION  TABLE 

| % REPLY  AREA 

| 1 

I ■ 

I \ FIGURE  4.1.14 
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calculated.  Note  that  since  all  of  the  coefficients  have 
been  left  in  the  equation  regardless  of  the  F value,  the 
equation  does  not  agree  with  that  in  Davies  [7]  which  con- 
tains only  the  coefficients  of  XI,  X2,  Xl2,  X2^,  X1X2  and 
the  intercept.  Figure  4,1.15  has  coefficients  of  the  ortho- 
gonal polynomials  and  the  corresponding  single  degree  of 
freedom  sums  of  squares  and  F ratios,  to  enable  the  user  to 
eliminate  single  degrees  of  freedom  which,  in  his  opinion, 
are  not  relevant.  In  this  session,  coefficients  are  deleted 
when  the  F values  are  less  than  one.  Their  sums  of  squares 
are  then  added  the  error.  This  eliminates  effects  B linear 
(4) , A quadratic  B linear  (6) , A linear  B quadratic  (8)  and 
A quadratic  B quadratic  (9).  Figure  4,1.16  displays  the  re- 
duced equation.  The  only  remaining  terms  are  those  in  Xl, 

2 ? 

Xl  , X1X2  and  X2  . Note  that  Davies  [7]  kept  the  X2  term 
even  though,  as  he  points  out,  its  coefficient  cannot  be 
shown  to  be  significantly  different  from  zero. 

Figure  4.1.17  displays  the  options  available  to  the 
user.  The  user  chooses  to  plot  the  response  surface  against 
one  factor  and  therefore  depresses  key  1.  In  Figure  4.1.18 
the  user  requests  a plot  of  the  response  surface  against  Xl. 
In  Figure  4.. 19  the  user  states  that  Xl  is  to  run  from  -1 
to  +1  and  that  there  will  be  a plot  for  each  of  three  values 
of  X2 , -1,  0 and  +1.  Figure  4.1,20  is  the  requested  plot. 
Note  that  of  these  plots,  plot  2 (X2  = 0)  achieves  the 
largest  predicted  yield  of  81,5  for  an  Xl  value  of  about  0.3. 


( 


J. 


\ 
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DAVIES  EXAMPLE  - FRAME  15 


DEPRESS 

DE°RESS 

DEPRESS 

DEPRtSS 

DEPRESS 

USE 

A = XI 
LELL  A B 


1 

2 

3 

4 

5 

6 

7 

8 
9 


OUTPJT  AREA 

SINGLE  DEGREE  OF  FREEDOM  DIS°LAY 

KEY  1 *0  DELETE  TERMS  BY  CELL  NUMBER 
KEY  2 TO  DELETE  TERMS  BY  F COMPARISON 
KEY  2b  TO  PAGE  BACKWARD 
KE ( 29  TO  PAGE  FORWARD 

KEY  30  TO  VIEW  OPTION  TABLE 

= 0.59999996 

B =.  X2 


COEFFICIENT 

77.677734 
1 .9666643 
-1  .3111124 
0.21666461 
-2 .2249985 
-0.1*166766 
-C. 46111381 
0.83338395E-02 
0.6S444418E-01 


SUM  OF  SQUARES 

54304.469 
23 .206604 
30.942307 
0.28166133 
19  .802400 
0.24083674 
3.8272667 
0.83343498E-03 
C. 17361110 


F RATIO 


90507.438 
38.677673 
51  .57051  1 
C.  4694355/ 

3o  .004089 
0.4013945a 
6.37877/5 
0 . 1 389C583E-02 
0.28935182 


REPLY  AREA 


FIGURE  4.1.15 


s 
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DAVIES  EXAMPLE  - FRAME  16 


OUTPUT  AREA 
FACTORbA  IS  XI 

FACTORS  IS  X2 

IN  STANDARD  FACTOR  VALUES,  f = 

♦ 61.22218  ♦ 1.966664  bA 

-3 .9333o7  bAbb2  -2.224998  bAbB 

-1.3833,1  bBbb2 


WMERlbA 

0.0 

b ARAWbb2 

♦ ( 1.000000 

1 B 

ARAW 

♦ I 0.0 

) 

WrlEREaB 

r 

0.0 

b BRAWbb2 

4-  ( 1 .000000 

I B 

BRAW 

♦ 1 0.0 

I 

MINI  MUM 

TWO 

SI  OKA 

ERROR 

IS  ♦ OR  - 

1 .07370 

hAXIKUH 

TWO 

SI  or  A 

ERROR 

IS  OR  - 

1 -34748 

DEPRESS  KEY  28  TO  PAGE  BACKHARO. 

DEPRESS  KEY  29  TO  PAGE  FORWARD. 

DEPRESS  KEY  30  TO  VIEW  OPTION  TABLE 

REPLY  AREA 


FIGURE  4.1.16 
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DAVIES  EXAMPLE  - FRAME  17 


DEPRESS 

KEY 

1 

TO 

DEPRESS 

KEY 

2 

TO 

DEPRESS 

KEY 

3 

TO 

DEPRESS 

KEY 

4 

TO 

DEPRESS 

KEY 

5 

TO 

OUTPUT  AREA 
OPTION  TABLE 

PLOT  THE  PREDICTED  RESPONSE  AGAINST  ONE  FACTOR 

Pt OT  A 95X  CONFIDENCE  INTERVAL  AGAINST  ONE  FACTOR 

PLOT  CONTOURS 

EDIT  THE  RAM  DATA 

RETURN  TO  THE  RESPONSE  EQUATION 


REPLY  AREA 


FIGURE  4.1.17 


\ 
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DAVIES  EXAMPLE  - FRAME  18 


ThE  FACTORS  ARE  AS  FOLLOWS » 

1.  XI  ■■PLOTTINO  FACT0R«« 

2.  X2 


LNTtR  SEPARATE0  BY  A COMMA  THE  MINIHUM  AND  MAXIMUM 
VALUt  TO  BE  PLOTTED . 


FIGURE  4.1.18 
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DAVIES  EXAMPLE  - FRAME  19 


THE  FACTORS  ARE  AS  FOLLOWS! 

1 . XI  -1  .1 

2.  X2  -1  .0.1 


ENTER  SEPARATED  BY  A COMMA  THE  MINIMUM  AND  MAXIMUM 
VALUE  TO  BE  PLOTTED. 

UP  TO  FOUR  PLOTS  CAN  BE  VIEWED  SIMULTANEOUSLY . 

TO  ACCOMPLISH  THIS.  SITPLY  TYPE  MORE  THAN  ONE  VALUE. 

C SEPARATED  BY  COMMAS)  WHEN  ASKED  TO  ENTER  THE  FOLLOWINO. 
FIXED  VALUES. 

EXAMPLE! 

10. 5. 15. ? 


PLEASE  ENTER  "HE  VALUE! S)  FOR  X2 
DEPRES8  KEY  1 TO  PLOT. 


DAVIES  EXAMPLE  - FRAME  20 


PL0T  NO.  X2 

1.  -1.00 

2.  0.0 

3.  1-00 


-1*00  INCRErENT=  0.200  1-00 

DEPRESS  KEY  1 TO  RETURN  T0  OPTION  TABLE 


FIGURE  4.1.20 


M 


130 

Figure  4.1,21  shows  an  analagous  plot  with  X2  varying  from 
-1  to  +1  for  values  of  XI  set  at  -1,  0 and  +1. 

In  Figure  4.1.22,  the  user  has  requested  contour 
plots  of  the  surface  with  both  factors  ranging  from  -3  to 
+3.  The  user  has  been  warned  that  he  is  extrapolating  and 
has  chosen  to  override  the  warning.  The  program  is  asking 
for  a predicted  response.  The  user  enters  75.0.  Figure 
4.1.23  is  a plot  of  the  cross-section  of  the  response  sur- 
face for  which  the  predicted  response  has  the  value  75,0. 
The  user  enters  the  value  80.0.  Figure  4.1.24  is  a plot 
of  the  original  contour  with  the  added  contour  for  the 
response  value  of  80.0.  This  plot  is  similar  to  that  dis- 
played in  Davies  [ 7]  page  523,  with  the  following  comment: 

The  803  yield  contour,  for  example,  is 
the  locus  of  all  points  which  satisfy  the  equa- 
tion 80  = 81.22  + 1.97x^  + 0,22x2  ~ 3,93x£  - 
1.38x2  - 2.22x^X2-  Substituting  any  given  value 
of  x^,  a quadratic  equation  in  X2  would  be  ob- 
tained which  could  be  solved  in  the  ususal  way 
and  the  corresponding  values  of  X2  found.  If 
this  somewhat  tedious  calculation  were  carried 
through  for  a sufficiently  large  number  of 
points  the  80%  contour  and  other  contours  could 
be  drawn  . . . 

The  statistician  who  uses  the  interactive  graphics  program 
could  perform  the  task  in  a few  minutes,  and  the  computer 
is  put  to  work  performing  the  "tedious  task." 

The  user,  seeking  the  maximum  response,  enters  a val- 
ue 82.0.  The  display  in  Figure  4.1.25  informs  him  that 
82.0  is  above  the  maximum  of  the  surface  (see  the  com- 
ment: NO  SOLUTION  FOR  82).  The  user  tries  the  value  81.0. 


i 

i 


DAVIES  EXAMPLE  - FRAME  21 


FIGURE  4.1.21 


♦ + 
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DAVIES  EXAMPLE  - FRAME  22 


THE 

1 . 
2. 


FACTORS  ARE  AS  FOLLOWS: 

XI  -3.3 

X2  -3.3 


ENTER.  SEPARATED  BY  A COMMA . THE  MINIMUM  AND  MAXIMUM 
VALUE  FOR  THE  INDICATED  FACTOR 

ENTER  THE  PREDICTED  RESPONSE  FOR  WHICH  YOU  WISH  TO  PLOT  A CONTOUR 


FIGURE  4.1.22 
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Figure  4,1,26  displays  the  inner  contours  for  a response 
of  81.0.  If  further  refinement  is  desired,  a new  series 
of  contours  will  have  to  be  initiated. 

The  user  returns  to  the  option  table  and  again  re- 
quests a contour  plot.  This  time  the  predicted  response 
entered  is  81.0,  the  previous  value.  Note  that  the  limits 
of  XI  and  X2  have  been  changed  to  range  from  -1  to  +1,  in 
order  to  obtain  better  resolution.  Realizing  that  82.0  is 
out  of  range,  the  user  requests  successively  contours  for 
values  of  81.2,  81.4  and  81.6.  Figure  4.1.27  is  the  final 
one  of  the  three  displays.  The  user  then  enters  81.6 
which  is  above  the  maximum.  This  process  can  be  continued 
until  the  user  is  satisfied.  In  Figure  4.1.28  the  user 
has  found  that  a response  of  81.5  corresponds  to  XI  and  X2 
values  of  approximately  0.3  and  -0.25  respectively. 

The  user  may  also  wish  to  place  confidence  bounds 
about  the  predicted  response.  Figures  4.1.29  and  4.1.30 
display  such  plots.  The  value  of  XI  has  been  fixed  and 
the  response  surface  is  displayed  with  + characters  for 
a range  of  X2.  The  upper  portion  of  the  confidence  inter- 
val is  plotted  with  U characters  and  the  lower,  with  L 
characters . 

4.2  Process  Evaluation 

In  many  instances  the  investigator  who  conducts  a 
factorial  experiment  is  not  interested  in  maximizing  the 


\ 


DAVIES  EXAMPLE  - FRAME  29 


82.7 


INCREMENT 

0.434 


78.4 


XI 

0.0 


uUl|UUUUJI.UUUUtlUu 


lLlllL,-LLLLLLLLlllll 
ll^lL  LLV 

I L lL 

ll 


X2 


l -00  INCREMENTS  0.200 

DEPRES8  KEY  1 TO  RETURN  TO  OPTION  TABLE 


FIGURE  4.1.29 


DAVIES  EXAMPLE  - FRAME  30 


XI 

1 .00 


DEPRESS  KEY  1 TO  RETURN  TO  OPTION  TABLE 


FIGURE  4.1.30 
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yield,  but  in  uncovering  those  factor  settings  which  pro- 
duce  certain  intermediate  levels  of  output.  Further,  if  a 
certain  yield  is  desired  from  the  process,  it  might  be 
discovered  that  several  combinations  of  factor  settings 
will  produce  the  desired  result.  This  information  will 
allow  the  experimenter  to  choose  those  settings  which  will 
minimize  the  cost  function  for  the  process,  and,  in  addi- 
tion, will  allow  him  to  determine  which  residual  settings, 
if  any,  to  use  when  circumstances  dictate  fixed  settings 
for  certain  factors  of  the  process. 

An  example  of  this  type  of  experiment  is  the  calibra- 
tion and  evaluation  of  an  industrial  process.  To  illus- 
trate the  technique,  consider  a hypothetical  paper  drying 
machine  which  has  three  heating  drums  and  two  speeds  at 
which  to  process  the  pulp.  Suppose,  further,  that  the  end 
result  of  the  process  is  to  be  paper  with  a 4%  moisture 
content.  A 2x3  factorial  experiment  is  conducted  with 
two  trials  conducted  at  each  combination  of  the  following 
settings : 


SPEED 

DRUM  1 

DRUM  2 

DRUM  3 

1 

70 

100 

120 

2 

100 

120 

130 

140 

140 

140 

Drum  temperatures  are  in  degrees  F. 

Once  the  108  observations  of  moisture  content  have 
been  made,  the  researcher  will  wish  to  calculate  and  ex- 
plore the  response  surface  as  in  Figures  4.2.1  through 
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4.2.20. 

In  Figure  4.2.1,  the  user  has  indicated  to  the  pro- 
gram that  his  experimental  data  consist  of  four  factors 
with  two  replications.  Note  that,  in  this  case,  the  pro- 
gram does  not  require  an  external  estimate  of  the  MSE.  In 
Figure  4.2.2,  the  user  has  indicated  that  the  first  factor 
has  two  levels  and  that  the  remaining  three  have  three 
levels  each.  In  Figure  4.2.3,  the  program  has  been  given 
the  settings  for  the  factors,  e.g.,  the  SPEED  settings  are 
1 and  2,  DRUM1  has  settings  of  70,  100  and  140  degrees, 
etc.  In  Figure  4.2.4,  the  user  has  begun  to  enter  the  ob- 
servations. Line  1,  which  indicates  all  factors  at  level 

j 

1,  refers  to  a SPEED  of  1,  DRUM1  at  70  degrees,  DRUM2  at 
100  degrees  and  DRUM3  at  120  degrees.  In  Figure  4.2.5, 
the  user  has  completed  the  entry  of  the  data  for  the  54 
treatment  combinations.  The  user  then  requests  the  pro- 
gram to  perform  the  analysis.  Figure  4.2.6  presents  the 

t 

mean  squares  to  the  user  while  Figure  4.2.7  presents  the 
corresponding  F values.  Figure  4.2.8  presents  the  equa- 
tion of  the  response  surface  with  all  of  the  factors  pre- 
sent. In  Figure  4.2.9  the  user  has  requested  a listing 
of  the  single  degree  of  freedom  sums  of  squares.  He  then 
requests  the  program  to  delete  (set  to  0)  all  coefficients 

f 

\ of  the  orthogonal  polynomials  whose  corresponding  F ratios 

r 

are  less  than  1.0.  These  sums  of  squares  are  added  into 
the  error.  Figure  4.2.10  displays  the  simplified  equation. 
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PROCESS  EVALUATION  EXAMPLE  - FRAME  1 


OUTPUT  AREA 

PLEASE  ENTER  THE  NUMBER  OF  FACTORS. 

4 

PLEASE  ENTER  THE  NUMBER  OF  REPLICATIONS. 

2 

DEPRESS  KEY  1 TO  CONTINUE. 


PROCESS  EVALUATION  EXAMPLE  - FRAME  2 


OUTPUT  AREA 

THERE  HILL  BE  AN  OPPORTUNITY  AT  THE  ENO  OF  THIS  FRAHE 
TO  CORRECT  ANY  INPUT  ERRORS. 

PLEASE  ENTER  THE  NUHBER  OF  LEVELS  FOR  SPEED 
FACTOR  I HAS  2 LEVELS. 

PLEASE  ENTER  THE  NUHBER  OF  LEVELS  FOR  DRUM1 
FACTOR  2 HAS  3 LEVELS. 

PLEASE  ENTER  THE  NUHBER  OF  LEVELS  FOR  DRUH2 
FACTOR  3 HAS  3 LEVELS. 

PLEASE  ENTER  THE  NUHBER  OF  LEVELS  FOR  0RUM3 
FACTOR  4 HAS  3 LEVELS. 

DEPRESS  HEY  1 TO  CONTINUE  OR  KEY  2 TO  RE-ENTER  LEVEL 


REPLY  AREA 


FIGURE  4.2.2 
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PROCESS  EVALUATION  EXAMPLE  - FRAME  3 


OUTPUT  AREA 

IF  YOU  KISH  THE  LEVELS  OF  THE  FACTORS  TO  BE 
1 FOR  LEVEL  1.  2 FOR  LEVEL  l,  ETC.  DEPRESS  KEY  1 

IF  YOU  KISH  TO  ENTER  VALUES  FOR  THE  LEVELS.  DEPRESS  KEY  2 

ENTER.  SEPARATED  BY  COMMAS . THE  LEVELS  FOR  SPEED 

1 .2 

ENTER.  SEPARATED  BY  COMMAS.  THE  LEVELS  FOR  DRUM1 
7D.100.U0 

ENTER.  SEPARATED  BY  COMMAS.  THE  LEVELS  FOR  DRUH2 

100.120.140 

ENTER.  SEPARATED  BY  COMMAS.  THE  LEVELS  FOR  DRUM3 

120.130.140 

DEPRESS  KEY  1 TO  CONTINUE 


REPLY  AREA 


FIGURE  4.2.3 
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PROCESS  EVALUATION  EXAMPLE  - FRAME  4 


OUTPUT  AREA 

ENTER.  SEPARATED  BY  COMMAS . ALL  REPLICATIONS  FOR 
THE  FACTOR  LEVELS  INDICATED 

A = SPEED  B = DRUM1  C = DRUM2  D DRUMS 

DEPRESS  KEY  30  TO  EDIT  A LINE  OF  DATA. 

CELL  A B C D 

1 1 1 1 J 4. 8. 5. 2 

2 2111  9.8.10.2 

3 12  11  4. 4. 4. 6 

4 2 2 1 1 9. 4. 9. 6 

5 13  11  4. 3. 4. 4 

6 2 3 1 1 9. 3. 9. 4 

7 112  1 4. 5. 4. 7 

8 2 12  1 9. 5. 9. 7 

9 12  2 1 4. 2. 4. 5 

10  2 2 2 1 9. 2. 9. 5 

11  1321  3. 8. 4.0 

12  2 3 2 1 8. 8. 9.0 

13  113  1 4. 6. 4. 7 

14  2 13  1 9. 6. 9. 7 

15  12  3 1 


REPLY  AREA 


FIGURE  4.2.4 
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PROCESS  EVALUATION  EXAMPLE 


13 

1 

1 

3 

1 

4. 6. 4. 7 

OUTPUT  AREA 

14 

2 

1 

3 

1 

9. 6. 9. 7 

15 

1 

2 

3 

1 

4 .0.4.0 

16 

2 

2 

3 

1 

9. 0.9.0 

17 

1 

3 

3 

1 

3. 8. 3. 9 

18 

2 

3 

3 

1 

8. 8. 8. 9 

19 

1 

1 

1 

2 

4.1  .4.4 

20 

2 

1 

1 

2 

9.1  .9.4 

21 

1 

2 

1 

2 

3. 8. 4.0 

22 

2 

2 

1 

2 

8. 8. 9.0 

23 

1 

3 

1 

2 

3. 6. 3. 7 

24 

2 

3 

1 

2 

8. 6. 8. 7 

25 

1 

1 

2 

2 

4.1  .4.2 

26 

2 

1 

2 

2 

9.1  .9.2 

27 

1 

2 

2 

2 

3. 7. 3. 9 

28 

2 

o 

2 

2 

8. 7. 8. 9 

29 

1 

3 

2 

2 

3. 8. 3. 8 

3C 

2 

3 

o 

2 

8. 8. 8. 8 

31 

1 

1 

3 

2 

4. 0.4. 4 

32 

2 

1 

3 

2 

9. 0.9. 4 

33 

1 

2 

3 

2 

3. 6. 3. 8 

34 

9 

2 

3 

2 

8. 6. 8. 8 

35 

1 

3 

3 

2 

3. 5. 3. 6 

36 

2 

3 

3 

2 

8. 5. 8. 6 

37 

1 

1 

1 

3 

4. 2. 4. 3 

38 

2 

1 

1 

3 

9 .2.9-3 

39 

1 

2 

1 

3 

3. 5. 3. 7 

40 

2 

2 

1 

3 

8. 5. 8. 7 

41 

1 

3 

1 

3 

3. 4. 3. 6 

42 

2 

3 

1 

3 

8. 4. 8. 6 

43 

1 

1 

2 

3 

3. 9. 4.0 

44 

2 

1 

2 

3 

6 . 9 . 9 . 0 

45 

1 

2 

2 

3 

3.1 .3.3 

46 

2 

2 

2 

3 

8.1 .8.3 

47 

1 

3 

2 

3 

3. 0.3.1 

48 

2 

3 

2 

3 

o.o.e.i 

49 

1 

1 

3 

3 

3. 4. 3. 5 

50 

2 

1 

3 

3 

8. 4. 8. 5 

51 

1 

2 

3 

3 

2. 9. 3.1 

52 

2 

2 

3 

3 

''.9.8.1 

53 

1 

3 

3 

3 

2. 8. 2. 9 

54 

2 

3 

3 

3 

7. 8. 7. 9 

DATA 

ENTRY 

IS  COMPLETE. 

DEPRESS  KEY  1 TO  PERFORM  ANALYSIS 
DEPRESS  KEY  2 TO  REVIEW  OR  EDIT  OATA. 


REPLY  AREA 


FIGURE  4.2.5 


i 

% 


\ 


FRAME  5 


J 
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PROCESS  EVALUATION  EXAMPLE  - FRAME  6 


OUTPUT  AREA 


ANALYSIS  OF  VARIANCE 


SOURCE  OF  VARIATION 

OF 

MEAN  SQUARES 

SPEED 

■ 

1 

674.997 

DRUM  1 

a 

2 

4.31147 

I 3 

SPEED 

aDRUMl 

a 

2 

0.763596E-11 

* 

DRUM2 

a 

2 

1 .57813 

SPEED 

■0RUH2 

a 

2 

0.258701E-10 

DRUni 

aDRUM2 

a 

4 

0.537025E-02 

SPEED 

aDRUMl 

aORUf12  a 

4 

0.485695E-11 

0RUM3 

a 

2 

7.74704 

SPEED 

aDRUM3 

a 

2 

0.646752E-11 

DRUM1 

aDRUH3 

a 

4 

0.609255E-01 

SPEED 

aDRUMl 

aDRUM3  a 

4 

0.231795E-11 

DRUM2 

aDRUM3 

a 

4 

0.265826 

SPEEO 

aDRUH2 

aORUr.3  a 

4 

0.323376E-11 

DRUni 

a0RUM2 

aDRUM3  a 

e 

0.548151E-01 

SPEED 

aDRUMl 

aDRUM2  aDRUM3  a 

8 

0.423799E-11 

ALL  EFFECTS 

53 

13-2837 

1 I 

1 1 

ERROR 

54 

0.187806E-01 

' 

« 

DEPRESS 

KEY  1 

FOR  SUMS  OF  SQUARES. 

DEPRESS 

KEY  2 

FOR  MEAN  SQUARES. 

DEPRESS 

KEY  3 

FOR  F VALUES. 

[ i 

DEPRESS 

KEY  30 

TO  VIEW  OPTION  TABLE 

i • 
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PROCESS  EVALUATION  EXAMPLE  - FRAME  7 


OUTPUT  AREA 
ANALYSIS  OP  VARIANCE 


SOURCE  OF  VARIATION 

DF 

F 

SPEED 

■ 

1 

0.3594E  05 

DRUMl 

■ 

2 

229.6 

SPEEO 

■DRUMl 

■ 

2 

0.4066E-09 

0RUM2 

■ 

2 

84.03 

SPEEO 

■DRUM2 

■ 

2 

0 . 1377E-08 

OR'JMl 

■DRUK2 

■ 

4 

0.2859 

SPEED 

■DRUMl 

■DRUM2  ■ 

4 

0.2588E-09 

DRUMS 

■ 

2 

412.5 

SPEED 

■DRUM3 

■ 

2 

0.3444E-09 

DRUMl 

■DRUM3 

■ 

4 

3.244 

SPEED 

■DRUMl 

■DRUM3  ■ 

4 

0.1234E-09 

DRUM2 

■DRUM3 

■ 

4 

14.16 

SPEED 

■0RUM2 

■DRUMS  ■ 

4 

0.1722E-09 

DRUMl 

■DRUM2 

■DRUM3  ■ 

8 

2.919 

SPEED 

■DRUMl 

■DRUM2  «0RUM3  ■ 

8 

0.Z257E-09 

ALL  EFFECTS 

53 

707.3 

ERROR 

54 

DEPRESS  KEY 
DEPRESS  KEY 
DEPRESS  KEY 


1 FOR  SUMS  OF  SQUARES. 

2 FOR  MEAN  SQUARES. 

3 FOR  F VALUES. 


DEPRESS  KEY  30  TO  VIEW  OPTION  TABLE 


REPLY  AREA 
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PROCESS  EVALUATION  EXAMPLE  - FRAME  8 


OUTPUT  AREA 
FACTORS  16  SPEED 

FACTORS  IS  DRUttl 

FACTORaC  IS  DRUH2 

FACTORaD  IS  DRUMS 

IN  STANDARD  FACTOR  VALUES.  Y = 

♦ 6.299990  ♦ 2.499993  «A 

-0.1749993  aB  ♦ 0.1749992  b0bb2 
-0 .9999847E-01 »C  -0 . 1250076E-01bBbC 

♦ 0 .6249999E-01 »B»»2  aC  -0.1375007  bBbCbb2 

-0 .6249996E-01 ■B»«2  aCaa2  -0-5750006  aD 

-0 .4999923E-01aBaD  * 0.2000006  aBaa2  aD 

-0 .2500248E-01 aCaD  + 0 .3750038E-01bBbCbD 
-0 .4999638E-01«B»»2  mCaO  + 0.1000013  aCaa2  aD 

♦ 0 .6249809E-01 bBbC«b2  *D  -0.2000016  aBaa2  mCmmZ  *D 

-0  -2499621 E-01  »»D»»»»2  -0-2250021  *B«D»*2 

-0.7500076E-01aBaa2  bDbb2  -0.1750001  bCbDbb2 

■r  0 • 1250076E-01  bB«CbDbb2  -0 .7499975E-01  bCb0bb2 

♦ 0.1875038  aBaCaa2  bDbb2  i-  0.1750001  bBbb2  aCaa2  aDaa2 

HMEREaA  = 2.000000  a ARAN  ♦ ( -3.000000  1 

WMEREaB  =-0 . 1 1 90476E-03  a BRAWaa2  + ( 0 .5357143E-01 la  BRAH 
+ ( -4.166665  I 

NHEREaC  =0.0  a CRfiW*a2  ♦ ( 0 .5000000E-01)a  CRAH 

■t-  ( -5  *999999  ) 

WHEREaD  = O.u  a DRAWb*2  t l 0 .9999996E-0l)a  ORAN 

♦ 1 -13.00000  1 

MINIMUM  TWO  SIGMA  ERROR  IS  - OR  - 0.27535 

MAXIMUM  TWO  SIGMA  ERROR  IS  OR  — 0.33620- 


DEPRESS  KEY  28  TO  PAGE.  BACKWARD 
DEPRESS  KEY  23  TO  PAGE  FORWARO 

DEPRESS  KET  30  TO  VIEW  OPTION  TABLE 

REPLY  AREA 
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PROCESS  EVALUATION  EXAMPLE  - FRAME  9 


OUTPUT  AREA 

SINGLE  DEGREE  OF  FREEDOtl  DISPLAY 

DEPRESS  KEY  1 TO  DELETE  TERMS  BY  CELL  NUMBER 
DEPRESS  KEY  2 TO  DELETE  TERMS  BY  F COMPARISON 
DEPRESS  KEY  28  TO  PAGE  BACKWARD 
DEPRESS  KEY  29  TO  PAGE  FORWARD 

DEPRESS  KEY  30  TO  VIEW  OPTION  TABLE 

USE  = 0.18780389E-01 


A SPEED  B =.  DRUM1  C = DRUM2  D - DRUK3 


CELL 

A 

8 

C 

0 

COEFFICIENT 

SUM  Of  SQUARES 

F RATIO 

31 

0 

0 

2 

1 

-0.1111 1047E-01 

0.17777566E-01 

0 .94659251 

32 

1 

0 

2 

1 

0 • 10596381 E-06 

0.16168794E-1 1 

0 .860931 05E-1 0 

33 

0 

1 

2 

1 

0.20832695E-01 

0 . 4 1 664 1 24E-01 

2.2184668 

34 

1 

1 

2 

1 

-0 .2880891 0E-06 

0 .79675520E-  1 1 

0.42424397E-09 

35 

0 

2 

2 

1 

-0.2222241  IE-01 

0.14222461 

7.5729S7 0 

36 

1 

2 

2 

1 

-0.52981903E-07 

0.80843969E-12 

0 . 43046552E- 1 0 

37 

0 

0 

0 

2 

0.9268301  IE-03 

0 • 1 8554705E-03 

0.98797232E-02 

38 

1 

0 

0 

2 

0.211 92761 E-06 

0 .9701 2762E- 1 1 

0.E1655857E-09 

39 

0 

1 

0 

2 

-0.33333246E-01 

0.15999907 

8.5193844 

40 

1 

1 

0 

2 

0.5960464SE-07 

C.51 159077E-12 

0.27240390E-10 

41 

0 

2 

0 

2 

0.46 29556  IE-02. 

0 -92589743E-02 

0.49300766' 

42. 

r 

2 

0 

2 

-0.10596381 E-06 

0.48S0638IE-1T 

0.258279I8E-0S 

43 

o 

0 

1 

2 

-0 . 7499998 8 E -01 

0 .81000042. 

43.129654- 

44 

j 

0 

r 

2 

0.1 0596381 E-06 

0.161  68794E- 1 1 

0.86093I05E-10 

45 

0 

1 

l 

2 

0 .416691 97E-02 

0 . 1 C668700E-02 

0.88754892E-01 

46 

i 

1 

i 

2 

0-14901 1 6 1 E-06 

0.2131 F28ZE- 1 1 

0.11 350) F7E-09 

47 

0 

2 

l 

2 

-0 .833331 05E-02 

0 . 1 9999895E-01 

1 .0649233 

48 

l 

2 

i 

2 

-0 .52981903E- 07 

0 .0P843969E-  1 2 

0.43046552E-10 

49 

0 

0 

2 

2 

0 • 12962870E-01 

0 .72591 484E- 01 

3.8652391 

50 

1 

0 

2 

2 

-0 • 1 0596381E-06 

0.48506381E-11 

0 .2582791 8E-09 

51 

0 

1 

2 

2 

0.20833757E-01 

0.12500507 

6.6560774 

52 

1 

1 

2 

2 

0.22848445E-06 

0 • 1 5035084E-1 0 

C.80056495E-09 

53 

0 

2 

2 

2 

0 *6401 4873E-02 

0-36296368E-01 

1 .9326525 

54 

1 

2 

2 

2 

-0 .52961 903E-07 

0 .242531 86E- 1 1 

0.12913964E-09 

REPLY  AREA 


FIGURE  4.2.9 
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PROCESS  EVALUATION  EXAMPLE  - FRAME  10 


OUTPUT  AREA 
FACTORbA  16  SPEED 

FACTORED  18  DRUM1 

FACTORED  IS  DRUH2 

FACTORED  IS  DRUrtS 

IN  STANDARD  FACTOR  VALUES.  Y = 

6.253251  ♦ 2.499995  bA 

-0.1833315  bB  ♦ 0.2388877  bBbb2 
-0 .91 66509E-01 bC  ♦ 0 .4999986E-01bBbb2  bC 
+ 0.361 1 1 18E-01 »Cbb2  -0.1250025  bBbCbb2 
-0.1166667  bBbb2  bCbb2  -0.5972227  bD 
-0 . 4166539E-01 bBbD  ♦ 0.2000006  bBbb2  bO 
-0 . 25002 48E-01 bCbD  + 0 .3750038E-01 bBbCbD 
-0.4999638E-01bBbb2  bCbD  + 0.1333345  bCbb2  bD 
+ 0 .6249809E-01 »BbCbb2  bD  -0. 2000016  bBbb2  bCbb2  bD 
-0-2250021  »BbDbb2  -0.1166667  bBbb2  «D«b2 

-0.1750001  bCbDbb2  -0  .7499975E-01 bBbb2  bCbDbb2 

+ 0.1875038  bBbCbb2  bQbb2  + 0.1750001  bBbb2  bCbb2  bDbb2 

HHEREbA  - 2.000000  a ARAH  + ( -3.000000  1 

WHEREbB  =-0 . 1 190476E-03  b BRAWbb2  ♦ ( 0.5357143E-011b  BRAW 

♦ ( -4.166665  1 

NHEREbC  = 0.0  b CRAHbb2  ♦ t 0 .5000000E-011b  CRAW 

* t -5-999999  ) 

NNEREbD  = 0.0  B DRAHbb2  ♦ ( 0 .9999996E-01  la  0RAH 

r f -13.00000  1 

minimum  two  sioha  error  is  » or  - 0.22009 

MAXIMUM  TWO  SIGMA  ERROR  IS  ♦ OR  - 0.23861 
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At  this  point,  the  user  is  in  a position  to  explore  the 
response  surface.  Figure  4.2,11  displays  SPEED  against 
the  predicted  response  for  the  factor  settings  indicated 
above  the  plot.  Note  that  as  DRUM 3 is  varied  from  120  de- 
grees to  140  degrees,  the  moisture  of  the  resultant  paper 
is  reduced  by  an  almost  constant  value  of  0.6%.  The  prin- 
cipal result  of  the  frame  is  that  a speed  of  2 produces  a 
product  which  is  much  too  wet.  In  Figure  4.2.12  it  has 
been  decided  to  limit  the  speed  to  1 (slow)  and  to  plot 
the  predicted  response  against  the  settings  of  DRUMl  with 
DRUM2  varying  through  its  range  of  setting  while  DRUM3  re- 
mains at  its  lowest  setting.  The  first  curve  does  not  get 
down  to  4%;  however,  a DRUMl  setting  of  about  133  degrees 
produces  the  desired  result  for  curve  2,  while  only  105 
degrees  is  required  by  curve  3.  In  summary,  this  plot  in- 
dicates that  4%  moisture  content  can  be  expected  at  the 


following  two 

settings : 

SPEED 

DRUM  1 

DRUM  2 

DRUM  3 

1 

133 

120 

120 

1 

105 

140 

120 

The  user  may  thus  investigate  the  surface  in  this  fashion 
searching  for  reasonable  levels. 

Figure  4.2.13  illustrates  a phenomenon  that  can  occur 
when  using  polynomials  for  purposes  of  interpolation. 

Curve  2 appears  to  show  that  as  the  temperature  of  DRUMl 
is  increased,  the  resulting  paper  is  wetter.  Upon  consid- 


H 


toro*- 
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PROCESS  EVALUATION  EXAMPLE  - FRAME  11 


PLOT  NO.  DRUH1  DRUM2  DRUMS 

100.  120.  120. 

100.  120.  130. 

100.  120.  140. 


PROCESS  EVALUATION  EXAMPLE  - FRAME  12 
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PLOT  HO.  SPEED 

1.  1.00 


Z. 

3. 


1 .00 
1 .00 


DRUM2 

100. 

120. 

140. 


DRUMS 

120. 

120. 

120. 


4.93 


INCREMENT: 

0.117 


3.82 


on  „ DRUM1 

70.0  INCREMENT:  7.00 

DEPRESS  KEY  1 TO  RETURN  TO  OPTION  TABLE 


140. 
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eration,  it  is  apparent  that  the  predicted  response  drops 
to  a constant  level  in  the  midrange  of  the  DRUMl  settings 
and  that  the  quadratic  required  to  fit  the  data  reaches  a 
minimum  and  begins  an  upswing  - a mathematical  artifact. 

After  the  user  has  decided  upon  certain  settings  of 
interest,  he  will  probably  wish  to  investigate  the  limits 
within  which  the  actual  result  will  be  expected  to  fall. 
Figure  4,2.14  displays  a 95%  confidence  interval  about  the 
response  surface  as  a function  of  DRUMl  temperature  set- 
tings and  for  the  fixed  values  of  the  other  factors  as  in- 
dicated above  the  plot.  The  confidence  interval  may  not 
appear  as  one  would  expect.  When  the  limits  of  DRUMl 
temperatures  are  expanded,  as  in  Figure  4.2.15,  it  can  be 
seen  that  the  confidence  interval  is  behaving  properly. 

Another  important  use  for  the  program  is  illustrated 
by  the  contour  plot  in  Figure  4.2.16.  Suppose  the  user 
wishes  to  investigate  the  necessary  settings  for  DRUM2 
and  DRUM3  in  order  to  produce  an  expected  4%  moisture  con- 
tent in  the  product  given  that  the  low  speed  is  to  be  used 
and  that  DRUMl  is  to  be  set  at  100  degrees.  The  curve  dis- 
played is  the  locus  of  all  settings  satisfying  this  condi- 
tion. The  user  may  now  make  his  selection  from  this  sub- 
set. Figures  4.2.17  through  4.2,19  display  other  contours 
which  would  be  of  interest  to  the  user.  Figure  4.2.20 
represents  contours  of  the  surface  for  various  predicted 
responses.  Note  the  complexity  of  the  projections  even 
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PROCESS  EVALUATION  EXAMPLE  - FRAME  14 


SPEED  DRUM2  DRUMS 

1.00  120.  130. 


DEPRESS  KEY  1 TC  RETURN  TO  OPTION  TABLE 


FIGURE  4.2.14 
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7.23 


INCREMEN 


PROCESS  EVALUATION  EXAMPLE  - FRAME  15 


SPEED 

1 .00 


DRUM2 

120. 


DRUMS 

130. 


U 


L+  U 
+ U 


U 

u 

► u 

u 


u 


vLl  *.;\u 

LLLLL‘*-.“UU“UUUuuuiJuuulluUUUU''ljl,U 

L, 


Li 

lll  +++++++++++++++ 

LL,  , 


v >li  l,LLi.l,u  ; 


llllllllllllll 


„„  „ DRUM1 

30.0  INCREMENT:  15.0 

OEPRESS  KEY  1 TO  RETURN  TO  OPTION  TABLE 


180. 


FIGURE  4.2.15 


A 


PROCESS  EVALUATION  EXAMPLE  - FRAME  20 


PLOT  NO-  RESPONSE  SPEED  0RUH1 

1.  4.00000  1.00000  100.000 

2.  3.90000  1.00000  100.000 

3.  4.10000  1.00000  100-000 

4.  3.50000  1.00000  100.000 


140. 


DRUM3 

INCREMENT: 

2.00 


120. 


DRUM2 

100-  INCREMENT:  4.00  1*0 

DEPRESS  KEY  1 TO  RETURN  TO  OPTION  TABLE 

OR  ENTER  NEH  RESPONSE  (NO  MORE  THEN  FOUR  MAY  BE  PLOTTED) 


FIGURE  4,2.20 
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though  the  responses  are  all  within  0.6  of  each  other. 

4.3  Likelihood  Function  Contours 

Although  the  YATES  program  was  designed  initially  for 
the  analysis  of  response  surfaces,  it  is  useful  for  the 
exploration  of  any  mathematical  surface  which  may  be  ap- 
proximated over  some  region  by  mixed  polynomials.  For 
this  reason,  statisticiai  > will  find  the  program  to  be  a 
tool  which  can  be  used  in  the  investigation  of  likelihood 
functions . 

To  illustrate  the  procedure,  a program  is  written 

2 

which  would,  for  given  values  of  v , a and  o , generate  a 
random  sample  from  a three  parameter  Student's  t distribu- 
tion. The  log-likelihood  function  can  then  be  evaluated 
using  this  random  sample  and  various  combinations  of  user- 
chosen  values  for  the  parameters.  In  essence,  the  parame- 
ters can  be  considered  as  factors  and  the  values  of  the 
log-likelihood  function,  as  responses.  This  set  of  data 
can  then  be  stored  directly  on  disk  for  input  to  the  YATES 
program.  Refer  to  section  3.3  for  the  methodology. 

Figures  4.3.1  through  4.3.8  illustrate  the  procedure. 
First,  a random  sample  of  100  values  is  generated  from  a 
Student's  t distribution  with  parameters 
V = 3,  a = 5,  a2  = 9 

Secondly,  the  log-likelihood  function  is  evaluated  using 
the  sample  and  all  possible  combinations  of  the  parameter 
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values 

v = 1,  4,  7,  10  a = 3,  5 , 7 a2  = 2,  10,  18 
The  results  are  then  placed  on  disk  in  YATES  order  (refer 
to  section  3.3).  In  Figure  4.3.1,  the  user  has  already 
indicated  to  the  program  that  the  data  are  located  on  disk 
and  has  asked  for  a review  of  the  input.  Line  1 indicates 
that  for  the  values 

a2  = 2 a = 3 v=l 

the  value  of  the  log-likelihood  function  is  -341.6.  Note 
that  SIG  SQ  has  3 levels,  ALPHA  has  3 levels  and  NU  has  4 
levels.  The  user  then  proceeds  with  the  analysis  and  pro- 
duces the  polynomial  displayed  in  Figure  4.3.2.  The  error 
term  should,  of  course,  be  disregarded.  The  coefficients  of 
the  polynomial  appears  to  be  somewhat  difficult  to  compre- 
hend; however,  as  it  is  merely  an  interpolating  function, 
the  user  should  not  concern  himsslf  with  it. 

After  several  displays  which  allow  the  user  to  orient 
himself,  he  produces  the  contours  given  in  Figure  4.3.3. 

Note  that  ALPHA  is  fixed  at  6 and  that  a requested  response 
of  -292.00  is  above  the  maximum  of  the  surface  for  this 
particular  combination  of  parameter  values.  The  innermost 
contour  suggests  investigation  of  values  of  NU  and  SIG  SQ 
of  approximately  5.5  and  14,  ± i-pectively.  In  Figure 
4.3.4,  this  information  has  been  used  to  fix  SIG  SQ  at 
14.0  and  to  plot  NU  against  ALPHA.  Contour  3,  in  turn, 
suggests  investigation  of  values  of  NU  and  ALPHA  of  ap- 


168 


LIKELIHOOD  FUNCTION  EXAMPLE 


OUTPUT  AREA 


DEPRESS 

KEY  1 TO  CONTINUE  WITH  THE  ANALYSIS 
KEY  3 TO  REPLACE  DATA 
DEPRESS  KEY  28  TO  PAGE  BACKWARD . 

DEPRESS  KEY  29  TO  PAGE  FORWARD. 


A = SIG  SQ  B = ALPHA  C = NU 

CELL  ABC 


1 

1 

1 

1 

-341  .5 

2 

2 

1 

1 

-323.1 

3 

3 

1 

i 

-326.4 

4 

4 

4 

2 

1 

-313.2 

5 

2 

2 

3 

-307.9 

6 

3 

2 

1 

-315-3 

7 

1 

3 

1 

-323.3 

8 

2 

3 

1 

-314.4 

9 

3 

3 

1 

-320.6 

ID 

1 

1 

2 

-394  .8 

11 

2 

1 

2 

-31 S .6 

12 

3 

1 

2 

-31P.C 

13 

1 

2 

2 

-352.6 

14 

2 

2 

2 

-298-6 

IS 

3 

2 

2 

-299.7 

16 

1 

3 

2 

-370.1 

17 

2 

3 

2 

307.9 

18 

3 

3 

2 

-306.2 

19 

1 

1 

3 

-441  .£ 

20 

2 

1 

3 

-321  .9 

21 

3 

1 

3 

-312.1 

22 

1 

2 

3 

-390.3 

23 

2 

2 

3 

-303.7 

24 

3 

2 

3 

-300.6 

2o 

1 

3 

3 

-413.6 

26 

2 

3 

3 

-314.4 

27 

3 

3 

3 

-307.6 

28 

1 

1 

4 

-477.7 

2° 

2 

1 

4 

-327.5 

30 

3 

1 

4 

-314.0 

31 

1 

2 

4 

-419.7 

32 

2 

2 

4 

-308.5 

33 

3 

2 

4 

-302.2 

34 

1 

3 

4 

-447.8 

35 

2 

3 

4 

-320.0 

36 

3 

3 

4 

-309.5 

REPLY  AREA 


FRAME  1 


FIGURE  4.3.1 


169 


LIKELIHOOD  FUNCTION  EXAMPLE  - FRAME  2 


OUTPUT  AREA 
FACTORaA  IS  SH>  SQ 

r'ACTORaB  IS  ALPHA 

FACTORaC  IS  NU 

IN  STANDARD  FACTOR  VALUES.  Y = 

-30C •'  554  ♦ 36.50537  «A 

-35.26057  aAaaC  ♦ 3.780B07  aB 

-5-561943  aAa8  ♦ 3-997825  aAaa2  bB 

-13.87952  bBbb2  » 12.41254  ■AbBbb2 

-7.E11929  bAbb2  bBbb2  -8-651396  aC 

♦ 27.29918  aAaC  -20-97141  aAaa2  *C 

-0.1415557  aBaC  -1.236182  aAaBaC 

» 1.317954  aAaa2  »8aC  -1.526698  aBaa2  bC 

♦ 5.277975  bAbBbb?  bC  -3.990466  bAbb2  bBbb2  aC 

-7.899030  aCaa2  -7.632405  bAbCbbD 

♦ 5.851.10  aAaa2  bCbb2  * 0.2693024  b8bCbb2 

♦ 0.8519211  bAbBbCbb2  -0.7351913  aAaaC  »BaCaa2 

t 0 .81 46361  a8aa2  bCbbZ  -1.505243  aAaBaa2  aCaa2 
t 0.6695477  »Aaa2  b8bb2  bCbb2 

t 8.312664  aCaaS  . 2.577460  aAaCaaB 

-C.04695B  nAa»2  »C«a3  -0.1547698  b8bCbb3 

-0-3902204  aAa3a:aB3  - 0.2706068  aAaa2  bBbCbb3 
-0.2680662  bBbb2  aCaa3  ♦ 0-3530042  bAb8bb2  bCbbS 
- 7 .88508556-01 «Aaa2  aBa«2  »C»a3 

NHEREbA  ^ 0.0  a ARAW.aC  i-  . 0.12S0C30  la  ARAW 

» 1 -1 .LSOOOO 

WHEREaB  - 0.0  a BRAWbb2  «•  l 0.5000000  la  BRAW 

r I -2.500000  1 

HMEREaC  = 0.0  a CRAWaa3  ♦ l 0.0  la  CRAWaa2 

♦1  0.2222222  .a  CRAW  * ( -1.222221  1 

i.iNinun  two  sigka  error  is  » on  - 2.02759 

flAXInUn  TWO  CIOI.A  ERROR  IS  * HR  - 2.84759  -=l  * K®  I ♦ 


CEPRESS  KEY  28  TO  PAGE  BACKWARD. 

DEPRESS  KEY  29  TO  PAGE  FORWARD. 

DEPRESS  KEY  30  TO  VIEW  OPTION  TABlE 

REPL  < AREA 


FIGURE  4.3.2 


LIKELIHOOD  FUNCTION  EXAMPLE  - FRAME  4 


PLOT  NO.  RESPONSE  SIO  SQ 

1.  -C92.300  14.0000 

2.  -292. 000  14.0000 

3.  -291-000  14.0000 

4.  -290.500  14.0000  NO  SOLUTION 


OR  ENTER  NEW  RESPONSE  l NO  MORE  TNEN  FOUR  flflV  BE  PlOTTEO) 


FIGURE  4.3.4 
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proximately  5.5  and  5.2,  respectively.  In  Figure  4.3.5, 
ALPHA  has  been  fixed  at  5.2  and  NU  again  plotted  against 
SIG  SQ.  This  plot  leads  the  user  to  a value  of  5.5  for 
NU  and  14.0  to  14.5  for  SIG  SQ.  Because  NU  has  had  a 
consistent  value  of  about  5.5,  Figure  4.3.6  displays  SIG  SQ 
against  ALPHA  for  a NU  value  of  5.5.  This  plot,  inturn, 
indicates  values  of  SIG  SQ  and  ALPHA  of  14.10  to  14.15 
and  5.20  to  5.22,  respectively.  A fixed  value  of  5.21  is 
therefore  chosen  for  ALPHA  thus  producing  Figure  4.3.7. 

Note  that  the  range  of  NU  has  been  reduced  to  5.4  to  5.6 
and  that  of  SIG  SQ  from  14.1  to  14.2,  It  is  evident  in 
the  final  frame,  Figure  4.3.8,  that  a response  of  ap- 
proximately -290.743  is  a maximum  for  the  surface  within  the 
precision  of  the  plotting  program.  The  final  values  for 
the  parameters  can  be  approximated  from  the  plot  as  follows: 
V = 5.47  a = 5.21  a2  = 14.125 

Certainly,  it  is  not  the  intention  of  this  example  to 
suggest  that  likelihood  functions  should  be  optimized  in 
this  fashion;  however,  it  is  obvious  that  the  technique 
provides  a valuable  tool  for  the  statistical  researcher. 
First,  the  method  may  be  used  to  provide  good  estimates  of 
the  parameters  in  order  to  initialize  numerical  optimi- 
zation techniques.  Secondly,  the  program  may  be  used  to 
verify  that  other  procedures  have  in  fact  converged  upon 
the  absolute  maximum  of  the  function,  not  just  a local  one. 
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LIKELIHOOD  FUNCTION  EXAMPLE  - FRAME  5 


PLOT  NO. 

RESPONSE 

ALPHA 

1 . 

• 291  .000 

5.20000 

2. 

-290.500 

5-20000 

NO 

SOLUTION 

3. 

-290. BOO 

5.20000 

4 . 

-290.700 

5-20000 

NO 

SOLUTION 

1l1lIl1»nlinninninlUn,,,,nnninnnlll 

33333b333333333333333333333,a33 
333  3§ 

333333333333333333353S333333 

, 2 } 1 3 

' 1 1 J 1 1 1 n 1 1 1 ui  i n n i n ii  i ii 11 5 1 1 1 1 1 1 1 1 1 1 


SJO  SD 
INCREtlENT- 
0.500 


10.0 


l v V >, 1 S \ ^ : 

NU 

5-00  INCREMENT:;  0.100E  00  6.0 

DEPRESS  KEY  1 TO  RETURN  TO  OPTION  TABLE 
OR  ENTER  NEW  RESPONSE  iNO  MOrtE  inEN  FOUR  MAY  BE  PLOTTED) 


i 

4 


FIGURE  4.3.5 


LIKFLIHOGu  FUNCTION  EXAMPLE  - FRAME  6 


PLOT  NO.  RESPONSE  NU 

1.  -290.800  5.50000 

2.  -290.700  5.50000 

3.  -290.750  5.50000 

4.  -290.745  5-50000 


5.50 


NO  SOLUTION 


ALPHA 

INCREMENT: 

0.500E-01 


5.00 


„i,iiniinnmiin,iUi 


3U 


ij 


Jj 


,33 


33333333333 

4«4444, 


33c 


J 4 ^ “4  0 

% 4444444  ,3s3 

^"*333333333333  3 


1 1 1 1 1 1 1 1 n 1 1 n n 1 1 1 1 1 1 1 1 1 1 1 


11 


i, 4 ^ ^ ^ x ^ 

SIO  SQ 

14.0  INCREMENT:  O.SOOE-Ol  14.5 

DEPRESS  KEY  1 TO  RETURN  TO  OPTION  TABLE 

OR  ENTER  NEN  PESPONSE  (NO  MORE  THEN  FOUR  MAY  BE  PLOTTED) 


FIGURE  4.3.6 
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LIKELIHOOD  FUNCTION  EXAMPLE  - FRAME  7 


PLOT  HO.  RESPONSE  ALPHA 
-290.745  5.21000 

2.  -290.740  5.21000  NO  SOLUTION 

3.  -290.744  5.21000 

4.  -290.743  5.21000  NO  SOLUTION 


ll,,,,1’l1. 


,S3333: 


SIG  SQ  3' 

INCREMENT^  1 3 

0.100E-01  , 

1 J 


3 i 


5-*0  INCREMENT-  C.200E-C1  5.f 

DEPRESS  KEY  1 TO  RETURN  TO  OPTION  TABLE 

OR  ENTER  NEW  RESPONSE  (NO  MORE  THEN  FOJR  MAY  BE  PLOTTED] 


FIGURE  4.3.7 
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CHAPTER  V 


APPLICATIONS  OF  GRAPHICS  DISTRIBUTION  UNIT 

The  statistician  who  has  access  to  facilities  which 
allow  him  to  view  immediate  plots  of  statistical  functions 
finds,  as  will  be  illustrated  in  this  chapter,  that  the 
number  of  problem  solving  tools  available  to  him  has  been 
significantly  increased.  Problems  concerning  the  power  of 
statistical  tests  which,  in  the  past,  have  proved  to  be 
cumbersome  and  mathematically  intractable  become  routine. 

In  addition,  determination  of  critical  points  for  cumulative 
distribution  functions  whose  inverses  are  difficult  to 
calculate  can  be  made  accurately  and  inexpensively.  The 
following  sections  serve  to  illustrate  a few  of  the  tasks 
to  which  the  Graphics  Distribution  Unit  may  be  applied. 

5 . 1 The  Power  Function 

To  study  the  quality  of  the  F-test  of  a general  lin- 
ear hypothesis,  it  is  customary  to  plot  or  describe  power 
functions  for  different  levels  of  significance,  or  for 
different  sample  sizes.  The  power  function  plots  power  vs. 
values  of  the  non-centrality  parameter.  In  the  F-test, 

such  a plot  requires  redefinition  of  scaling  of  the  axis 
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t 
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representing  the  non-centrality  parameter.  In  terms  of  the 

non-central  F distribution,  as  discussed  in  Bargmann  [ 3], 

-1  2 

the  non-centrality  parameter  is  A = y*~Q  y/o 

where  HQ:  C ^ = y = 0 

and  a specified  alternative  is 

Ha:  C £ = y ^ 0 and  Q = C^X) 

If  sample  size  is  fixed,  A itself  can  be  used  as  the  x 
axis.  If,  however,  the  power  is  to  be  compared  for  dif- 
ferent sample  sizes,  it  is  preferable  to  use  A/N  as  the 
abscissa  (Tang [24]).  For  example,  consider  the  test  of 
equality  of  means  of  a response  under  k different  treat- 
ments : 

Ho:  yl  = W2  = ' * * = uk 

with  r replications  per  treatment.  For  a given,  specified 
alternative  (V^'^2'  •••  > ^j<)  t^ie  non-centrality  para- 
meter is 

k 9 o 

A = rZ  (u.  -vu/a2 
i=l 

where 

A = (vj^+y2+.  . .ty^J/k 
2 

If  we  denote  by  6 the  average  of  the  square  of  the  de- 
viation of  treatment  means  from  the  grand  mean,  then 

9 9 2 2 

A = rk  6/o  = N 6 /a 

Thus,  A/N  is  the  square  of  the  average  deviation  of 
treatment  means  from  the  grand  mean,  in  standard  units. 


Example  5.1.1 


Suppose  we  have  k = 5 treatments  and  r = 7 observa- 
tions per  cell.  Then 

m = k - 1 = 4 (treatment  degrees  of  freedom) 
n=k  (r-1)  =30  (error  degrees  of  freedom) 

We  wish  to  obtain  the  power  function  for  values  of  a of 
. 10 , .05  and  . 01 . 

To  obtain  these  diagrams  we  respond  to  the  BLOWUP 
routine  as  follows: 


Name  of  Parameter:  ALPHA 

Values  of  Parameter:  .10,  .05,  .01 

Minimum  and  Maximum  for  X:  0,  1.2 

(this  is  1/N  in  our  notation) 

Increment  for  X:  .024  (51  points  to  be  plotted) 

Minimum  and  Maximum  for  Y:  0,  1 

Function:  Y = POWER (ALPHA, 4 , 30 ,X) 

The  display  is  then  in  Figure  5.1.1.  These  plots  are 
the  desired  power  functions.  To  illustrate  the  blowup 
feature,  let  us  assume  that  we  wish  to  determine  the  non- 
centrality parameter  for  which  the  power  is  .90  under  each 
of  the  stated  significance  levels.  Viewing  the  plots  we 
note  that,  somewhere  between  .4  and  .6  there  is  the  value 
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which  has  power  of  .90  for  plots  1 (a=.10)  end  2 (a=.05). 
The  blowup,  Figure  5.1.2,  shows  that  X/N  = .42  for  a=.10 
and  X/N  = .52  for  a=.05;  the  power  of  .9  occurs  for  X/N 
somewhere  between  .8  and  .9  (Plot  3)  if  a=.01;  the  blowup 
Figure  5.1.3,  shows  X/N  = .74. 

Thus  the  X/N  values  for  which  a power  of  .90  is  at- 
tained are  .42,  .52  and  .74,  respectively.  To  express 
these  departures  in  terms  of  average  standard  deviations 
(6/a)  we  take  square  roots;  thus  the  average  standard  de- 
viations that  produce  a power  of  .90  and  approximately, 

.65,  .72  and  .86  standard  units  for  a=.10,  .05  and  .01, 
respectively. 

Example  5.1.2 

Suppose  we  have  k = 4 treatments,  and  we  wish  to  have 
a significance  level  of  .01.  What  sample  size  do  we  need 
in  order  to  attain  a power  of  .90  for  6 = .2a,  ,3a  and  .4a? 
Note  that  the  program  is  written  for  a general  linear 


hypothesis,  and 

thus  operates 

in  terms  of  degrees  of  freedom 

error . 

Recall 

~T~ 

.2a 

. 3a 

4a 

T7n 

.04 

To3  7 

16 

Responses  to  queries  at  the  console  are  as  follows: 


POWER  FUNCTION  EXAMPLE  - FRAME  2 


OUTPUT  AREA 

Y=P0WER(ALPHA.4.30.X) 

PLOT  NO.  PARAMETER 
1 0.1000 

2 0.0500 

3 0.0100 


0.40000 

0.88613 

0 .80108 

0.55716 

0.42000 

0.90083 

0.82242 

0.58733 

0.44000 

0.91384 

0 .84186 

0.61638 

0.46000 

0.92530 

0.85951 

0.64422 

0.48000 

0.93539 

0.87547 

0.67078 

0.50000 

0.94423 

* 0-88985 

0.69599 

0.52000 

0.95196 

0.90277 

0.71984 

0.54000 

0.95868 

0.91433 

0.74235 

0.56000 

0.96451 

0.92465 

0.76354 

0.58000 

0.96955 

0.93384 

0.78341 

0.60000 

0.97391 

0.94201 

0.80199 

DEPRESS  PFK  1 

FOR 

1 SUMMARY 

2 

TO 

REPLOT 

3 

FOR 

: FURTHER 

BLOW-UP 

31 

TO 

STOP 

f 

i 


REPLY  AREA 


FIGURE  5.1.2 
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POWER  FUNCTION  EXAMPLE 


OUTPUT  AREA 


Y=P0WERIALPHA.4.30.X! 


PLOT  NO. 

PARAMETER 

1 

0.1000 

2 

0.0500 

3 

0.0100 

0.70000 

0.98829 

0.97077 

0.87677 

0.71000 

0.98920 

0 .97276 

0.88274 

0.72000 

0.99006 

0 .97462 

0.88847 

0.73000 

0.99084 

0.97637 

0.89397 

0-74000 

0.99158 

0 .97800 

0.89923 

0.75000 

0.99225 

0.97954 

0.90426 

0.76000 

0.99288 

0.98097 

0.90908 

0.77000 

0.99345 

0 .98231 

0.91368 

0.78000 

0.99398 

0.98355 

0.91808 

0.79000 

0.99447 

0 .98472 

0.92228 

0 .80000 

0.99492 

0.98580 

0.92630 

DEPRESS  PFK  1 FOR  SUMMARY 

2 TO  REPLOT 

3 FOR  FURTHER  BLOW-UP 
31  TO  STOP 


REPLY  AREA 


FIGURE  5.1.3 


£ 

f 


FRAME  3 


t 


Name  of  Parameter: 


LMDOVN 


Values  of  Parameter:  .04,  .09,  16  (X/N) 

Minimum  and  Maximum  for  X:  2,  502  (d.f.  error) 

Increment  for  X:  5 (10  points) 

Minimum  and  Maximum  for  Y:  0,1  (power) 

Function:  Y = POWER ( . 01 , 3 ,X , LMDOVN) 


The  display  is  shown  in  Figure  5.1.4.  Figure  5.1.5 
is  the  blowup  which  straddles  a power  of  .90  in  Plot  3 
(X/N  = .16,  N between  50  and  150)  which  occurs  at  N(d.f. 
error)  - 120  (sample  size  = 125)  and  Figure  5.1.6  shows  the 
blowup  for  Plot  2 ( VN  = .09)  where  the  power  of  .9  occurs 
at  d.f.  error  = 215  (sample  size  = 220).  Thus  to  attain  the 
desired  discriminatory  power  of  .90  against  an  alternative 
which  is  an  average  of  0.4  standard  units  away  from  H0,  we 
need  a sample  size  of  125,  and  for  0.3  standard  units  we 
need  220  (if  a = .01).  Because  of  the  rather  gradual  slope 
of  Plot  1 in  Figure  5.1.1,  an  extension  of  the  value  of  N 
was  made  in  Figure  5.1.7  (d.f. error  from  400  to  600,  Y from 
.75  to  1.0).  The  blowup  in  Figure  5.1.8  indicates  that  484 
degrees  of  freedom  for  error  will  be  necessary  to  provide  a 
power  of  ,9  at  a specified  alternative  for 

Ha:  6 = .2a 

where  6 is  the  average  deviation  of  a treatment  mean 
from  the  grand  mean.  The  suggested  number  of  replications 
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POWER  FUNCTION  EXAMPLE  - FRAME  5 


OUTPUT  AREA 


Y^PONERl .01 .3.X.LMD0VN) 


PLOT  NO. 

PARAMETER 

1 

0.0400 

2 

0.0900 

3 

0.1600 

50.00000 

0.06450 

0.18356 

0.40037 

60.00000 

0.00081 

0 .23754 

0.48266 

70.00000 

0.09863 

0.29465 

0.50243 

80.00000 

0.11786 

0.35340 

0.68679 

90.00000 

0.13837 

0-41264 

0.74285 

100.00000 

0.16005 

0.47075 

0.80774 

110.00000 

0.10279 

0.52650 

0.85902 

120-00000 

0.20645 

0 .57929 

0.89755 

130.00000 

0.23089 

0.62882 

0.92569 

140.00000 

0.25596 

0.67400 

0.94500 

150.00000 

0.28152 

0-71694 

0.96023 

DEPRESS  PFK  1 

FOR  SUMMARY 

2 

TO  REPLOT 

3 

FOR  FURTHER 

BLOU-UP 

31 

TO  STOP 

187 


POWER  FUNCTION  EXAMPLE  - FRAME  6 


OUTPUT  AREA 


Y=P0WER( .01 .3.X.LMD0VN) 


PLOT  NO. 

PARAMETER 

1 

0.0400 

2 

0-0900 

3 

0.1600 

200-00000 

0.41217 

0.86949 

0.99363 

205.00000 

0.42515 

J.  88005 

0.99486 

210.00000 

0.43807 

0.88988 

0 .99588 

215.00000 

0.45091 

0.89902 

0.99672 

220.00000 

0.46366 

0.90749 

0-99740 

225.00000 

0.47632 

0.91534 

0.99794 

230-00000 

0.48888 

0.92260 

0.99835 

235.00000 

0.50132 

0 .g^o 

0.99866 

240.00000 

0.51363 

0.93548 

0.99890 

245.00000 

0.52582 

0.94118 

0.99907 

250.00000 

0.53787 

0.94643 

0.99920 

DEPRESS  PFK  1 

FOR  SUMMARY 

2 

TO  REPLOT 

3 

FOR  FURTHER 

BLOW-UP 

31 

TO  STOP 

AO" AO 36  366 
unclassified 


OEOROIA  UN  IV  ATHENS  DEFT  OF  STATISTICS  A NO  COMPUTER—ETC  F/6  9/2 
6RAPHICAL  AIDS  FOR  STATISTICAL  COMPUTATION. (U) 

DEC  76  HP  BONO.  R E BARON ANN  N000 14-69- A-0423 

TR-112  NL 
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* 
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. 
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•§ 
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a 
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If 
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POWER  FUNCTION  EXAMPLE 


OUTPUT  AREA 


Y=P0WER(  .01  .3.X.LI100VN) 


PLOT  NO. 

PARAMETER 

1 

0.0400 

480.00000 

0.89775 

482.00000 

0.89932 

484.00000 

0.90086 

486.00000 

0.90239 

488.00000 

0.90390 

490.00000 

0.90539 

492.00000 

0.90685 

494.00000 

0.90830 

496.00000 

0.90973 

498.00000 

0.91114 

500.00000 

0.91253 

DEPRESS  PFK  1 FOR  SUMMARY 

2 TO  REPLOT 

3 FOR  FURTHER  BLOW-UP 
31  TO  STOP 


FRAME  8 


LJ 
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per  treatment  should  be  more  than  484/4  = 121  or  probably 
125  observations  per  treatment. 

5 . 2 Tests  and  Confidence  Bounds  for  Multiple  Correlations 
An  exact  test  for  the  equality  of  two  multiple 
correlation  coefficients  is  mathematically  intractable  due 
to  the  complexity  of  the  statistical  distribution  involved. 
An  approximate  test  based  on  the  distribution  of  the 
quotient  of  two  non-central  Beta  variates  was  developed  by 
Schumann  and  Bradley  [22] ; however,  this  test  assumes  a 
non-central  Beta  distribution  of  the  first  kind.  The 
square  of  the  sample  multiple  correlation  coefficient  has 
a non-central  Beta  distribution  of  the  second  kind,  and, 
therefore,  this  test  is  invalid.  Bargmann  [ 3]  and 
Thomas  [25]  discuss  both  types  of  non-central  Beta 
distributions,  and  develop  the  computational  techniques 
which  were  employed  by  the  NCBETA  function  used  in  the 
following  example. 

Example  5.2.1 

2 2 2 2 
The  distribution  of  R^-R2,  9iven  = P , 

depends  on  the  value  of  p.  Thus,  one  must  find  a value  of 

2 

the  non-centrality  parameter  (p  ) for  which 

P[R2<r2|p2]  = 1 - P[R2>r2|p2] 

2 

Thus,  non-central  R distributions  (non-central  Beta  of 
the  second  kind)  must  be  plotted  as  functions  of  the  non- 
centrality parameter.  In  the  Graphics  Distribution  Unit 
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2 

we  would  thus  use  p as  the  X-axis  and 

NCBETA(nJ,m,ni,X,2)  + NCBETA (n^ ,m,n2 f X, 2) -1 
as  the  Y-axis;  we  look  for  that  X at  which  this  function 
is  zero. 

Say  that,  for  3 predictors  and  two  independent  sam- 
ples of  sizes  255  and  240  we  found  sample  multiple  corre- 
lations (squared)  of  .25  and  .49,  respectively.  Using 
these  data  we  wish  to  test 


against  the  alternative  that 

Figure  5.2.1  is  a summary  of  the  plotting  orders  directed 

to  the  system.  In  order  to  determine  the  X for  which  the 

above  equality  is  true  we  will  attempt  to  find  the  root 

of  the  following  function. 

Y = BETNC  5 (.49,3,240,X,2) +BETNC  5 (,25,3,255,X,2)-1 

The  minimum  and  maximum  values  for  X are  chosen  to  be  .25 

and  .49,  the  squares  of  the  sample  multiple  correlations. 

It  is  obvious  that  the  value  of  Y will  fall  between  -1  and 

+1.  Figure  5.2.2  is  the  plot  of  the  function.  Note  that 

the  root  of  the  function  occurs  slightly  to  the  left  of 

the  center  line  of  the  plot,  i.e.,  to  the  left  of  X = .37. 

The  subsequent  blowup.  Figure  5.2.3,  from  X = .36  to  X = 

.38  indicates  that  the  zero  value  is  to  be  found  between 

X = .362  and  X = .364.  From  the  second  blowup,  Figure 

2 

5.2.4,  it  is  clear  that  the  X value  (p  value)  of  interest 
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MULTIPLE  CORRELATION  EXAMPLE 


OUTPUT  AREA 

Y=BETNC5C .49.3 .240. X .2)+BETNC5( .25. 3. 255. X. 21-1 


0.36200  0.10876E-02 
0.36220  0-93974E-03 
0.36240  0.79202E-03 
0-36260  0.64443E-03 
0.36280  0.49694E-03 
0.36300  0.34954E-03 
0.36320  0.20222E-03 
0.36340  0.54961E-04 
0. 36360-0. 92239E-04 
0. 36380-0. 23940E-03 
0. 36400-0. 38853E-0i 

DEPRESS  PFK  1 FOR  SUMMARY 

2 TO  REPLOT 

3 FOR  FURTHER  BLOH-UP 
31  TO  STOP 


REPLY  AREA 


FRAME  4 


FIGURE  5.2.4 
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is  approximately  0.3635.  We  see  that 

P[r|<0.25|  p2=0.3635]  = P [R2>0 . 49 | p2=0 . 3635 ] 

The  remaining  task  is  to  find  the  values  of  these  proba- 
bilities. Figure  5.2.5  is  the  summary  of  the  plotting 
orders  necessary  to  determine 
P [R2<0 . 25 | p2=0 .3635] 

This  probability  can  be  calculated  directly  using  the 
CALCG  expression 

Y = BETNC5  (0.25,3,255,0.3635,2) 

Thus,  we  wish  to  use  the  blowup  feature  to  determine  the 
value  of  Y for  X = 0.3635.  Figure  5.2.6,  a plot  of  the 
function,  is  not  necessary  for  the  procedure  because  the 
X of  interest,  0.3635,  is  already  known.  It  is  simply  an 
intermediate  step  leading  to  the  blowup  in  Figure  5.2.7 
from  which  we  read  immediately  that 

BETNC5 (.25,3,255,0.3635)  = 0.0064809 
or  P[R2<0.25| p2=0.3635]  = 0.0065 

Although  our  procedure  assures  us  that  as  a conse- 
quence of  our  actions 

P[R2>0.49|p2= 0.3635  = 0.0065 
we  confirm  this  in  Figure  5.2.8  as  we  observe  that 
1 - BETNC5  (.49,3,240,0.3635)  ± 0.0064995 
Due  to  the  fact  that  we  have  a two-tailed  test  we 
calculate  the  P value  as  2x0.0065  = 0.013  and  conclude 
that  the  two  multiple  correlations  are  significantly  dif- 
ferent at  the  .05  level  but  not  at  the  .01  level. 
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MULTIPLE  CORRELATION  EXAMPLE  - FRAME  5 


OUTPUT  AREA 

SUMMARY 

1.  Y=BETNC5C . 25. 3. 255. X. 2) 

2.  NO  Z = O(X)  SPECIFIED 

3.  MIN  FOR  X = 0 .25000000  00  MAX  FOR  X = 0.49000000  00 

4.  INCREMENT  FOR  X = 0.20000000-02 

5.  MIN  FOR  Y = 0.0  MAX  FOR  Y = 0.50000000  00 

6.  NO  PARAMETER  SPECIFIED. 

Y 

DEPRESS  THE  KEY  CORRESPONOINO  TO  ANY  ITEH  YOU  NISH  TO  CHANOE 
OR  DEPRESS  KEY  28  TO  PLOT  THE  FUNCTION 


I 
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r 1 


-* 


MULTIPLE  CORRELATION  EXAMPLE  - FRAME  7 


OUTPUT  ABEP 

Y=BETNC5( .25. 3. 255.X. 2) 


0.36300  0 . 66686E-02 
0.36310  0.66307E-02 
0.36320  0.65929E-02 
0.36330  0.65554E-02 
0.36340  0.65180E-02 
0.36350  0.64809E-02 
0.36360  0.64439E-02 
0.36370  0.64072E-02 
0.36380  0.63706E-02 
0.36390  0.63342E-02 
0.36*00  0.62980E-02 

I ’• 

DEPRESS  PPK  1 FOR  SUMMARY 

2 TO  REPLOT 

3 FOR  FURThtR  BLOW-UP 
31  TO  STOP 


MULTIPLE  CORRELATION  EXAMPLE  - FRAME  8 


OUTPUT  AREA 

Y=1-BETNC5( .49. 3. 240.X. 2) 


0.36300  0.63192E-02 
0.36310  0.63549E-02 
0.36320  0.63908E-02 
0.36330  0.64268E-02 
0.36340  0.64631E-02 
0.36350  0.64995E-02 
0.36360  0.65361E-02 
0.36370  0.65729E-02 
0.36380  0.66099E-02 
0.36390  0.6B470E-02 
0.36400  0-66844E-02 


DEPRESS  PEK  1 FOR  SUMMARY 
2 TO  REPI  OT 


3 FOR  FURTHER  BLOW-UP 
31  TO  STOP 
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Example  5.2.2 

2 

We  wish  to  obtain  95%  confidence  bounds  on  p for 
2 

4 predictors,  r = .49,  and  sample  sizes  50,  100  and  200. 

Figure  5.2.9  shows  the  summary  of  the  commands  which  are 

especially  simple  in  this  example.  Note  that,  as  in  the 

2 

previous  example,  the  non-centrality  parameter  (p  ) ap- 
pears as  the  X-axis.  The  graph  is  shown  in  Figure  5.2.10. 
The  blowups  from  Figure  5.2.11  through  Figure  5.2.13  show 
that  the  approximate  .025  value  occurs  at  0.2235  for  N = 
50,  at  0.3180  for  N = 100  and  at  0.3765  for  N = 200.  Sim- 
ilarly, Figures  5.2.14  through  5.2.16  show  the  approximate 
.975  value  to  be  0.6435  for  N = 50,  0.6065  for  N = 100  and 


0.5760  for  N = 200. 


5 . 3 The  Lehmann  Test 

Hypothesis  testing  has  frequently  been  criticized 
[15]  on  the  ground  that  "if  the  sample  size  is  large  enough, 
every  null  hypothesis  will  be  rejected."  In  fact,  this 
criticism  is  not  valid  against  the  technique  of  hypothesis 
testing,  but  merely  against  the  statement  of  a null  hypo- 
thesis 


as  a point  hypothesis.  If  the  two  true  population  means 

* 

f 

differ  by  a very  slight  amount,  H0  will  be  rejected  if  the 
sample  size  is  large  enough.  To  illustrate  the  fallacy  of 
the  statement  of  the  null  hypothesis,  consider  the  measure- 


w\  , 


summary 


OUTPUT  AREA 


1 . Y=BETNC5f .49.4.N.X.2) 

I]  MINZFOR°XX=  ^0^20000000  00  MAX  FOR  X = 0.70000000  CO 

4.  INCREMENT  FOR  X = 0-50000000-02  

5.  MIN  FOR  Y = 0.0  MAX  FOR  Y s 0-10000000  01 

6.  THE  VALUES  FOR  N AREt  „ 

0.50000000  02  0 . 1 0000000  03  0.20000000  03 

DEPRESS  THE  KEY  CORRESPONDING  TO  ANY  ITEM  YOU  NISH  TO  CHANQt 
OR  DtPRESS  KEY  28  TO  PLOT  THE  FUNCTION 


1 
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MULTIPLE  CORRELATION  EXAMPLE  - FRAME  11 


OUTPUT  AREA 

Y=BETNC51 .49.4 .N.X .2 ) 

PLOT  NO.  PARAMETER 

1 50.0000 

2 100-0000 

3 200-0000 


0.22000 

0.97677 

0.99883 

0.99993 

0-22050 

0-97653 

0-99861 

0-99993 

0-22100 

0-97629 

0-99880 

0-99993 

0.22150 

0.97604 

0-99878 

0.99993 

0.22200 

0-97580 

0-99877 

0.99993 

0.22250 

0-97555 

0-99875 

0.99993 

0-22300 

0-97530 

0-99874 

0-99993 

0-22350 

0-97505 

0-99873 

0-99993 

0.22400 

0.97480 

0-99871 

0.99993 

0.22450 

0-97454 

0-99870 

0.99993 

0.22500 

0-97429 

0-99868 

0-99993 

DEPRESS  PFK  1 

FOR  SUMMARY 

2 

TO 

REPLOT 

3 

FOR  FURTHER 

BLOH-UP 

31 

TO 

STOP 
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MULTIPLE  CORRELATION  EXAMPLE  - FRAME  12 


OUTPUT  AREA 


Y=BETNC51 .49. 

4.N.X.2) 

PLOT  NO. 

PARAMETER 

1 

50.0000 

2 

100-0000 

3 

200.0000 

0.31500 

0.88080 

0.97721 

0.99894 

0.31550 

0.86005 

0.97687 

0.99891 

0.31600 

0.87920 

0.97653 

0.99887 

0.31650 

0.87834 

0.97616 

0.99884 

0.31700 

0.87748 

0.97583 

0.99860 

0-31750 

0.87661 

0.97548 

0.99876 

0.31800 

0-87574 

0.97512 

0.99872 

0.31850 

0.87487 

0-97476 

0.99868 

0.31900 

0.87399 

0.97439 

0.99864 

0.31950 

0.87310 

0.97402 

0.99860 

0.32000 

0.87221 

0-97364 

0.99856 

DEPRESS  PFK  1 

FOR  SUMMARY 

2 

TO  REPLOT 

3 

FOR  FURTHER 

BLOH-UP 

31 

TO  STOP 

REPLY  AREA 


FIGURE  5.2.12 


s 
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MULTIPLE  CORRELATION  EXAMPLE  - FRAME  13 


OUTPUT 

AREA 

Y=BETNC5( .49.4 

•N.X.2) 

PLOT  NO. 

PARAMETER 

1 

50.0000 

2 

100.0000 

3 

200.0000 

0.37500 

0.74701 

0.89392 

0.97688 

0.37550 

0.74562 

0.89276 

0.97617 

0.37600 

0.74423 

0.89159 

0.97565 

0.37650 

0.74283 

0.89042 

0.97512 

0.37700 

0.74143 

0.88923 

0.97457 

0.37750 

0.74003 

0.88803 

0.97402 

0.37000 

0.73862 

0.88683 

0-97345 

0.37850 

0.73721 

0-88562 

0.97288 

1 0.37900 

0.73580 

0.88439 

0.97229 

0.37950 

0.73438 

0.88316 

0.97169 

0.36000 

0.73295 

0.88192 

0.97108 

DEPRESS  PFK  1 

FOR  SUMMARY 

2 

TO  REPLOT 

3 

FOR  FURTHER 

BLOH-UP 

31 

TO  STOP 

REPLY  AREA 


FIGURE  5.2.13 
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MULTIPLE  CORRELATION  EXAMPLE  - FRAME  14 


OUTPUT  AREA 

Y=BETNC5t * 49.4.N.X.2) 

PARAMETER 
50.0000 
100.0000 
200.0000 

0.02734  0.57324E-02-0.52442E-03 
0.02698  0 .56034E-02-0 .50958E-03 
0.02662  0.54777E-02-0-49269E-03 
0.02626  0.53554E-02-0.47376E-03 
0.02591  0.52363E-02-0 .45280E-03 
0*02556  0.51206E-02-0.42983E-03 
0.02521  0 *50080E-02-0 .40489E-03 
0-02487  0 • 48986E-02-0 -3779BE-03 
0.02453  0.47923E-02-0.34912E-03 
0.02420  0.46891E-02-0.31834E-03 
0-02386  0.45888E-02-0.28566E-03 

DEPRESS  PFK  1 FOR  SUMMARY 

2 TO  REPLOT 

3 FOR  FURTHER  BLOH-UP 
31  TO  STOP 


PLOT  NO. 

1 

2 

3 

0*84000 
0*64050 
0.64100 
0.64150 
j.  64200 
0*64250 
0*64300 
0-64350 
0*64400 
0*64450 
0*64500 


1 REPLY  AREA 

i 


FIGURE  5.2.14 


< 


\ 


OUTPUT  AREA 


Y=8ETNC5( .49.4.N.X.2) 


PLOT  NO. 

PARAMETER 

1 

50.0000 

2 

100-0000 

3 

200-0000 

0.60500 

0.08324 

0.02629 

0.47445E-02 

0.60550 

0.06257 

0.02580 

0.45658E-02 

0-60800 

0.06190 

0.02531 

0-4390SE-02 

0.60650 

0.06123 

0.02483 

0.42186E-02 

0.60700 

0.06057 

0.02435 

0 .40501 E-02 

0.60750 

0.05992 

0.02389 

0.38850E-02 

0.60800 

0.05927 

0.02343 

0.37233E-02 

0.60850 

0-05863 

0-02297 

0.35650E-02 

0.60900 

0.05799 

0.02253 

0.34099E-02 

0.60950 

0.05735 

0.02209 

0.32582E-02 

0.61000 

0.05672 

0.02165 

0.3109BE-02 

DEPRESS  PFK  1 

FOR  SUMMARY 

2 

TO  REPLOT 

3 

FOR  FURTHER 

BLOM-UP 

31 

TO  STOP 
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MULTIPLE  CORRELATION  EXAMPLE  - FRAME  16 


OUTPUT  AREA 


Y=BETNC5( .49.4.N.X.21 


PLOT  NO. 
1 
2 
3 


PARAMETER 

50.0000 

100-0000 

200.0000 


0.57500 

0.11360 

0.07077 

0.02656 

0.57550 

0.11260 

0.06976 

0.02591 

0-57600 

0-11161 

0-06875 

0-02526 

0.57650 

0.11062 

0.06776 

0.02463 

0.57700 

0.10964 

0-06678 

0.02401 

0.57750 

0.10866 

0.06581 

0.02341 

0-57800 

0.10768 

0-06485 

0.02282 

0-57650 

0.10672 

0-06390 

0.02224 

0.57900 

0.10576 

0.0C29C 

0.02’C6 

0.57950 

0.10480 

0.06203 

0.02112 

0.58000 

0.10385 

0-06111 

0-02058 

DEPRESS  PFK  1 FOR  SUMMARY 

2 TO  REPLOT 

3 FOR  FURTHER  BLOH-UP 
31  TO  STOP 


REPLY  AREA 


FIGURE  5.2.16 


\ 


210 


1 


ment  of  breakdown  voltages  of  semiconductors.  Values  such 
as  3.5  volts  (at  most  2 significant  digits)  will  be  re- 
corded for,  say,  each  of  10,000  devices  in  2 batches. 

Even  if  the  two  batches  had  exactly  the  same  true  average 
breakdown  voltages  per  device,  our  inability  to  record 
more  than  two  significant  digits  would  produce  a "signifi- 
cant" departure  from  HQ.  Properly,  we  should  have  stated 
the  null  hypothesis  as 

Ho:  lyl  ’ V2I  1 6 

versus  the  alternative 

Ivi  - v2l  > 6 

where  6 must  be  at  least  1/2  the  last  recorded  unit  (.05 
volts  in  our  example)  Lehmann  [12]  proposes  the  use  of 
"unbiased"  tests  for  such  hypothesis  where  the  null  hypo- 
thesis is  an  interval,  i.e., 

Power  > a if  | pi  1 - U2I  > ^ 

Power  <_  a if  l^i  ~ U2I  < ^ 

determines  the  significance  level.  Thus,  to  obtain  criti- 
cal values  for  Lehmann's  test,  we  need  to  know  the  value 
of  t which  corresponds  to  a probability  of  a when 
| u 1 ~ y 2 1 = This  requires  evaluation  of  non-central  t 

(or  t^)  with  non-centrality  parameter  | ^ 1 u 2 | ; tables  of 

a 

non-central  distributions  usually  consider  large  values  of 
the  non-centrality  parameter  - here,  small  values  are  re- 
quired. 


EL 
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Example  5.3.1 

With  M = 2 (3  groups)  and  Ng  = 20,  100,  200  (i.e., 
sample  size  23,  103  and  203)  we  wish  to  find  critical  F- 
values  (ot=  .05)  for  the  test 
Hq:  |y±-y  |/  a <_  0.125 
Alt:  |y^-y|/ a > 0 -125 
where  y is  (n^y^  + n2^2  + n3^3)/n 

In  other  words,  HQ  is  accepted  if  the  deviation  of  each 
group  mean  from  the  grand  mean  is  no  more  than  1/8  of  a 
standard  unit.  Thus,  the  X/N  value  (cf.  section  5.1)  is 
(0.125) 2 = .015625.  The  function  POWER  requires  the 
probability  of  the  Type  I error  (a)  as  the  first  argument, 
however,  we  want  the  F value  corresponding  to  a as  an  ab- 
scissa. Thus  we  must  use  the  option 

Z = G (X)  Z = 1.0  - FFX  3(X , 2 , N) 

where  FFX3(X,2,N)  evaluates  the  c.d.f.  of  the  F distribu- 
tion with  2 and  N degrees  of  freedom. 

Figure  5.3.1  displays  a summary  of  the  plotting 
orders  necessary  to  accomplish  the  task  set  forward  by 
this  example.  The  abscissa,  which  represents  the  critical 
F values,  ranges  from  2 to  10.  These  F values  will  be 
entered  in  steps  of  .08  to  the  secondary  function  (step  2) 
which  calculates,  as  Z,  the  values  of  a corresponding  to 
each  F value.  The  Z values  are  then  entered  into  the 
primary  function,  POWER,  which  calculates,  as  the  ordinate, 
the  power  of  the  F test  corresponding  to  the  calculated  a, 


LEHMANN  TEST  EXAMPLE 


FRAME  1 


OUTPUT  AREA 

summary 

1.  Y=P0HERCZ. 2. N. .015625) 

2*  2*1 «-FFX3IX i2iN) 

3!  MIN  *F0R  X =*  0 . 2000000D  01  MAX  FOR  X = 0.1000000D  02 

4.  INCREMENT  FOR  X = 0.80000000-01 

5.  MIN  FOR  Y = 0.0  MAX  FOR  Y = 0.10000000  01 

6.  THE  VALUES  FOR  N ARE « 

0.20000000  02  0.10000000  03  0-20000000  03 

DEPRESS  THE  KEY  CORRESPONDINO  TO  ANY  ITEM  YOU  WISH  TO  CHANOE 
OR  DEPRESS  KEY  28  TO  PLOT  THE  FUNCTION 


REPLY  AREA 


FIGURE  5.3.1 
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the  degrees  of  freedom  for  treatments  M=2,  the  degrees 
of  freedom  for  error  (Ne=20 , 100 , 200)  and  the  A/N  value 
(0.15625).  Figure  5.3.2  shows  the  display  from  which  we 
wish  to  find  the  X values  (F  values)  corresponding  to  a 
power  of  .05  (at  the  boundary  between  the  region  and 
the  alternative  region,  (ft-ajQ)  . 

The  blowup  of  F from  4.0  to  5.0  is  shown  in  Figure 
5.3.3  which  shows  that  the  critical  F value  for  Ne=20 
is  4.1.  The  blowup  of  F from  5.0  to  6.0  is  shown  in 
Figure  5.3.4  which  shows  that  the  critical  value  for 
Ne=100  is  5.2.  The  blowup  of  F from  6.0  to  7.0  is  shown 
in  Figure  5.3,5  which  shows  that  the  critical  F value  for 
Nq  = 200  is  6.7.  We  see  then  that  the  critical  F values 
necessary  to  perform  the  Lehmann  Test  under  the  conditions 
specified  in  this  example  are  4.1,  5.2  and  6.7,  respective- 
ly, for  N values  of  20,100  and  200.  The  F values  may  be 
compared  with  the  values  which  would  be  required  for  the 
corresponding  point  hypothesis. 

Example  5.3.2 

The  following  example,  dealing  with  the  same  situa- 
tion investigated  in  example  5.3.1,  is  especially  instruc- 
tive in  that  it  shows  that,  for  large  sample  sizes,  one  is 
obliged  to  take  more  stringent  significance  levels,  for 
testing  the  point  hypothesis 
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LEHMANN  TEST  EXAMPLE  - FRAME  3 


OUTPUT  AREA 

Y=P0WER(Z. 2. N. .015625) 

PLOT  NO.  PARAMETER 

1 20.0000 

2 100.0000 

3 200.0000 


4.00000 

0.05322 

0.10493 

0.21007 

4.10000 

0.04991 

0 .09856 

0.19981 

4.20000 

0.04682 

0.09260 

0.18999 

4.30000 

0.04394 

0.08697 

0.18060 

4.40000 

0-04126 

0.08168 

0.17161 

4.50000 

0.03875 

0.07669 

0.16303 

4.60000 

0.03640 

0-07200 

0*15483 

4.70000 

0.03421 

0-06759 

0.14700 

4.80000 

0.03217 

0.06344 

0.13952 

4.89999 

0-03026 

0.05954 

0.13240 

4.99999 

0.02848 

0.05588 

0.12560 

DEPRESS  PFK  1 

FOR  SUMMARY 

2 

TO 

REPLOT 

3 

FOR 

: FURTHER 

BLOW-UP 

31 

TO 

STOP 

LEHMANN  TEST  EXAMPLE  - FRAME  4 


Y=P0MER(Z.2.N 

PLOT  NO. 

1 

2 

3 

5.00000 

5.10000 

5.20000 

5.30000 

5.40000 

5.50000 

5.60000 

5.70000 

5.80000 

5.69999 

5.99999 

DEPRESS  PFK  1 
2 
3 
31 


.015625) 

PARAMETER 

20.0000 

100.0000 

200.0000 

0.02848 

0.02682 

0.02526 

0.02379 

0.02242 

0.02113 

0.01993 

0.01680 

0-01774 

0-01674 

0.01561 

FOR  SUMMARY 
TO  RcPLOT 
FOR  FURTHER 
TO  STOP 


OUTPUT 


0.05588 
0.05244 
0.04921 
0.04617 
0.04331 
0.04063 
0-03811 
0.03575 
0.03353 
0 -03145 
0.02949 


BLOW-UP 


AREA 


0-12560 
0.11912 
0.1 129S 
0.10707 
0.10147 
0.09615 
0.09106 
0.06626 
0.08168 
0.07733 
0.07320 


REPLY  AREA 


FIGURE  5.3.4 
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LEHMANN  TEST  EXAMPLE  - FRAME  5 


OUTPUT  AREA 

r=P0WER(Z. 2. N. .015625) 

PLOT  NO.  PARAMETER 

1 20.0000 

2 100.0000 

3 200.0000 

6. 00000  0 . 1 5807E-01  0-02949  0.07320 

6.10000  0 . 1 4929E-01  0.02766  0.06927 

6.20000  0 • 1 4103E-01  0.02593  0.06554 

6.30000  0.13327E  01  0.02431  0.06199 

6.40000  0 - 1 2599E-01  0.02260  0.05669 

6.50000  0 . 1 1914E-01  0.02137  0.05544 

6.60000  0 .1 1270E-01  0-02004  0-05242 

6.70000  0 . 10665E-01  0.01679  0.04955 

6.80000  0 . 10095E-01  0.01761  0.04684 

6-69999  0.95573E-02  0-01651  0-04426 

6.99999  0.90508E-02  0.01548  0.04182 

DEPRESS  PFK  1 FOR  SUMMARY 

2 TO  REPLOT 

3 FOR  FURTHER  BLOH-UP 
31  TO  STOP 


than  for  small  samples  if,  in  fact,  the  "interval"  hypo- 
thesis 
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Hq:  |pi-p|/a  < 6 

is  more  appropriate. 

The  only  difference  between  Figures  5.3.6  and  5.3.1 
is  that  the  Z = G(X)  function  has  been  removed.  The  inter- 
pretation of  the  plots  in  Figure  5.3.7  is  as  follows:  If 

the  interval  hypothesis  is  to  be  tested  for  a = .05,  the 
point  hypothesis  would  need  to  be  tested  at  a = .03,  for 
N = 20;  at  a = .008,  for  N = 100;  and  at  a * .003,  for 
N = 200.  The  actual  a-values  are  .032  from  Figure  5.3.8, 
.0075  from  Figure  5.3.9,  and  .0026  from  Figure  5.3.10. 

This  illustration  emphasizes  the  fact  that  the  (usually 
arbitrary)  significance  levels  ought  to  be  chosen  not 
only  according  to  the  nature  of  the  data  — which  is 
commonly  done  (.05,  .01  in  the  Social  Sciences,  .001  in 
Quality  Control  and  Engineering)  --  but  also  with  regard 
to  the  sample  sizes  involved.  Where  an  experimenter  intends 
to  use  .05  levels  of  significance  with  sample  sizes  of 
around  20,  he  should  decide  to  go  perhaps  as  far  down  as  the 
.001  level  with  sample  sizes  of  1,000  or  more.  The 
(arbitrary)  index  number  .05  at  N = 20  has  a closer 
similarity  to  the  (equally  arbitrary)  index  number  .001 
at  N = 1,000. 


219 


LEHMANN  TEST  EXAMPLE  - FRAME  6 


summary 


OUTPUT  AREA 


1.  Y=P0HERIZ. 2. N. .015625) 

2 • ZrX 

3!  MIN  FOR  X = 0.0  MAX  FOR  X 

4.  INCREMENT  FOR  X = 0.10000000-02 

5.  MIN  FOR  Y = 0.0  MAX  FOR  Y 

6.  THE  VALUES  FOR  N ARE • 

0.20000000  02  0.10000000  03  0. 


= 0* 10000000  00 
= 0.50000000  00 

.20000000  03 

DEPRESS  THE  KEY  CORRESPONDING  TO  ANY  ITEM  YOU  WISH  TO  CHANGE 
OR  DEPRESS  KEY  28  TO  PLOT  THE  FUNCTION 
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LEHMANN  TEST  EXAMPLE  - FRAME  8 


OUTPUT  AREA 

Y=P0WER(Z. 2. N. .0156251 

PLOT  NO.  PARAMETER 

1 20.0000 

2 100.0000 

3 200.0000 


0.03000 

0.04681 

0.13183 

0.25971 

0.03200 

0.04962 

0.13762 

0.26836 

0.03400 

0.05241 

0.14324 

0.27660 

0.03600 

0.05518 

0.14672 

0.28448 

0.03800 

0.05792 

0.15407 

0.29207 

0.04000 

0.06066 

0.15930 

0.29942 

0-04200 

0.06337 

0.16444 

0.30658 

0-04400 

0.06607 

0.16949 

0.31356 

0.04600 

0.06876 

0.17445 

0.32036 

0-04800 

0.07144 

0.17933 

0-32698 

0.05000 

0.07410 

0.18412 

0.33344 

DEPRESS  PFK  1 

FOR  SUMMARY 

2 

TO 

REPLOT 

3 

FOR  FURTHER 

BLOW-UP 

31 

TO 

STOP 

REPLY  AREA 


FIGURE  5.3.8 

I 
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LEHMANN  TEST  EXAMPLE  - FRAME  9 


OUTPUT  AREA 


=P0HER(Z.2.N. 

.015625) 

PLOT  NO. 

PARAMETER 

1 

20.0000 

2 

100.0000 

3 

200.0000 

0.70000E-02 

0.01235 

0.04731 

0.11430 

0.71000E-02 

0.01252 

0.04785 

0.11549 

0.72000E-02 

0.01268 

0.04840 

0.11668 

0.73000E-02 

0.01285 

0.04894 

0.11786 

0.74000E-02 

0.01302 

0.04948 

0.11902 

0.75000E-02 

0.01318 

0.05002 

0.12018 

0 .76000E-02 

0-01335 

0.05055 

0.12132 

0.77000E-02 

0.01351 

0.05108 

0.12246 

0.78000E-02 

0.01368 

0.05161 

0-12359 

0 -79000E-02 

0.01384 

0.05213 

0-12470 

0.800D0E-02 

0.01400 

0.05265 

0.12581 

DEPRESS  PFK  1 FOR  SUMMARY 

2 TO  REPLOT 

3 FOR  FURTHER  0L0H-UP 
31  TO  STOP 


REPLY  AREA 


FIGURE  5.3.9 
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LEHMANN  TEST  EXAMPLE  - FRAME  10 


Y=P0MER(Z. 2. N. .0156251 

PLOT  NO.  PARAMETER 
1 2 0.0000 
2 100.0000 
3 200.0000 

0.20000E-02  0.36835E-02 
0.21000E-02  0.38642E-02 
0.22000E-02  0.40445E-02 
0.23000E-02  0.42246E-02 
0.24000E-02  0.44043E-02 
0.25000E-02  0.45837E-02 
0.26000E-02  0.47628E-02 
0.27000E-02  0.49416E-02 
0.28000E-02  0 .51 200E-02 
0 -29000E-02  0.52982E-02 
0.30000E-02  0.54760E-02 

DEPRESS  PFK  1 FOR  SUMMARY 

2 TO  REPLOT 

3 FOR  FURTHER 
31  TO  STOP 


OUTPUT  AREA 


0.01550 

0.03946 

0.01623 

0.04128 

0-01696 

0.04308 

0.01768 

0.04487 

0.01839 

0-04664 

0.01911 

0.04840 

0.01982 

0.05015 

0.02052 

0.05188 

0.02122 

0.05360 

0-02192 

0.05530 

0.02261 

0.05700 

BLOM-UP 

REPLY  AREA 


FIGURE  5.3.10 


\ 
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5 . 4 Distribution  of  Largest  Characteristic  Root 

The  following  example  has  been  included  to  illustrate 
the  incorporation  into  the  Graphics  Distribution  Unit  of  a 
new  function.  As  stated  in  section  3.4,  there  is  a "short 
version"  for  inclusion  of  such  new  routines.  The  Function 
FUNl  (see  Appendix  D)  evaluates  the  c.d.f.  of  the  largest 
characteristic  root  of  a matrix  of  rank  2,  e.g.,  T'(H+E)  "'"T 
where  TT'  = H for  some  general  linear  hypothesis  with  two 
degrees  of  freedom  and  (p)  random  variables,  or  the 
distribution  of  the  canonical  correlation,  if  the  smaller  of 
the  two  sets  has  two  or  fewer  attributes.  The  explicit  form 
of  the  distribution  can  be  found  in  Roy  [20  ] and  involves 
several  incomplete  Beta-Functions  which  are,  of  course, 
contained  in  the  CALCG  package.  As  shown  in  the  summary, 
(Figure  5.4.1)  the  function  has  two  arguments  in  addition 
to  the  abscissa,  representing  m and  n (or  and  m2)  in  the 
notation  of  the  Roy-Heck  charts  [10 ] . The  illustration 
shows  the  c.d.f. 's  for  m = 8,r,10,  and  n=50  (see  Figure 
5.4.2)  . 

The  following  bio. up  (Figure  5.4.3)  shows  the  attempt 
to  straddle  the  .99  percentage  point  for  m=8,  and  the  .95 
percentage  points  for  m=9  and  10.  They  are  .313,  .291,  and 
.305,  respectively.  From  the  Roy-Heck  charts  we  find  for 
comparison  .313  (Chart  I,  m=8,  n=50)  .29  and  .305  (Chart 

III,  m=9,  10;  n=50).  Of  course,  much  greater  precision  is 
obtainable  in  BLOWUP,  but  is  hardly  necessary  for  practical 
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LARGEST  CHARACTERISTIC  ROOT  DISTRIBUTION  EXAMPLE 

FRAME  1 


summary 


OUTPUT  AREA 


1.  Y=FUN1 ( X »M .50 ) 

2.  NO  Z = G(X)  SPECIFIED 

3.  MIN  FOR  X = 0.10000000  00  MAX  FOR  X = 0.4000000D  00 

4.  INCREMENT  FOR  X = 0.30000000-02 

5.  MIN  FOR  Y = 0.0  MAX  FOR  Y = 0.10000000  01 

6.  THE  VALUES  FOR  M ARE» 

0.60000000  01  0.90000000  01  0.1000000C  02 

DEPRESS  THE  KEY  CORRESPONDING  TO  ANY  ITEM  YOU  WISH  TO  CHANGE 
OR  DEPRESS  KEY  28  TO  PLOT  THE  FUNCTION 


REPLY  AREA 


FIGURE  5.4.1 


' 


\ 


i 


r 


OUTPUT  AREA 

Y=FUN11X . M.50) 

PLOT  NO.  PARAMETER 

1 8.0000 

2 9.0000 

3 10.0000 


0.28000 

0.95879 

0.92648 

0.87928 

0.28600 

0.96749 

0.94075 

0-90062 

0.29200 

0-97455 

0.95262 

0.91884 

0.29800 

0.98021 

0.96239 

0.93425 

0.30400 

0.98470 

0-97035 

0-94715 

0.31000 

0.98825 

0.97680 

0.95787 

0.31600 

0.99106 

0.98202 

0.96670 

0.32200 

0.99326 

0.98617 

0.97390 

0.32800 

0.99495 

0.98944 

0.97968 

0-33400 

0.99623 

0-99198 

0-98429 

0.34000 

0.99720 

0.99395 

0.98795 

DEPRESS  PFK  1 

FOR 

! SUMMARY 

2 

TO 

REPLOT 

3 

FOR 

: FURTHER 

8L0W-UP 

31 

TO 

STOP 

228 


purposes . 

Further,  plots  of  the  c.d.f's  have  been  made  for 
m=  -1/2,0  and  1/2  (the  latter  not  charted  in  the  Roy-Heck 
charts,  but  attainable  by  interpolation),  and  n=20, 

(see  Fig.  5.4.6).  Again  we  straddle  the  .99  level  in 
m = -1/2  and  find  .249  (.25  by  Heck  Chart  I)  and  the 
.95  levels  for  m = 0 and  m = 1/2,  which  are  .22  and  .253  in 
Figure  5.4.6  (.222  and  between  .222  and  .280  in  Heck  Chart 
III,  for  n = 20). 

These  values  are  of  importance  to  a statistician  who 
wishes  to  place  conservative  (Roy-Schef f s ) confidence 
bounds  on  individual  comparisons  in  individual  random 
variables  in  multivariate  analysis-of-variance  (outer  box 
or  polytope  enclosing  the  elliptical  region) . 
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LARGEST  CHARACTERISTIC  ROOT  DISTRIBUTION  EXAMPLE 

FRAME  4 


SUMMARY 


OUTPUT  AREA 


1.  Y=FUN1 ( X .M .20) 

2.  NO  Z = GIX)  SPECIFIED 

3.  MIN  FOR  X = 0.0  MAX  FOR  X = 0.3000000D  00 

4.  INCREMENT  FOR  X = 0-30000000-02 

5.  MIN  FOR  Y = 0-0  MAX  FOR  Y = 0.10000000  01 

6.  THE  VALUES  FOR  M ARE i 

-0.50000000  00  0.0  0.50000000  00 

DEPRESS  THE  KEY  CORRESPONDINO  TO  ANY  ITEM  YOU  WISH  TO  CHANOE 
OR  DEPRESS  KEY  28  TO  PLOT  THE  FUNCTION 


REPLY  AREA 


FIGURE  5.4.4 
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LARGEST  CHARACTERISTIC  ROOT  DISTRIBUTION  EXAMPLE 

FRAME  6 

OUTPUT  AREA 


YzFUNKX.fi. 20) 


PLOT  NO. 
1 
2 
3 

PARAHETER 

-0.5000000 

0.0 

0.5000000 

0-21000 

0.97348 

0.93601 

0.87725 

0.21600 

0.97708 

0.94393 

0.89094 

0-22200 

0.98023 

0.95096 

0-90332 

0.22800 

0.98297 

0.95720 

0.91449 

0.23400 

0.98535 

0.96271 

0.92454 

0.24000 

0.98743 

0.96758 

0.93356 

[ i 

0-24600 

0.98923 

0.97187 

0-94165 

0-25200 

0.99079 

0.97565 

0-94886 

0.25800 

0.99214 

0.97896 

0.95528 

0.26400 

0.99329 

0.98184 

0-96097 

1 i 

0-27000 

DEPRESS  PFK  1 
2 
3 
31 

0-99428  0.98435 

FOR  SUMMARY 
TO  REPLOT 

FOR  FURTHER  BLOH-UP 
TO  STOP 

0-96599 

REPLY  AREA 


FIGURE  5.4.6 


i 
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CHAPTER  VI 


CONCLUSIONS 


In  1966,  Tukey  and  Wilk  [28]  made  the  following 
observation : 

Current  facilities  for  computing, 
display  and  real  time  interaction 
have  developed  substantially  beyond 
our  understanding  of  how  to  use 
them  effectively  in  data  analysis. 

This  research  has  attempted  to  expand  our  "understanding 

of  how  to  use"  such  facilities  by  exploring  several 

possible  uses  which  the  statistician  may  find  for  an 

interactive  graphics  terminal.  In  this  respect,  it  has 

been  involved  with  many  different  topics:  the  analysis  of 

data  from  a factorial  experiment,  the  optimization  of 

likelihood  surfaces,  the  power  of  the  F-test,  tests  and 

confidence  bounds  for  multiple  correlations  and  the 

distribution  of  the  largest  characteristic  root  of  certain 

matrix  products.  Although  each  of  these  areas  is  worthy 

of  extended  research,  in  this  investigation  these  topics 

were  chosen  merely  as  illustrations  to  show  the  advantage 

provided  to  the  statistician  by  having  immediate  access  to 

graphical  aids. 

Two  major  computational  tools  have  been  developed 
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and  implemented.  The  first  concerns  the  fitting  of  tensor 
> products  of  polynomials  through  rxsxtxu  points  where 

2_<  [r,  s,t,u]_<4  , and  rstu_<256  . Such  polynomial  products 
were  obtained,  deterministically  and  statistically  (by 
least  squares)  by  the  use  of  an  extension  of  the  Yates 
algorithm,  and  an  inverse  algorithm  called  the  "Back 
Solution".  The  response  surfaces  thus  generated  have  been 
represented  graphically  (for  two  factors  with  the  other 
two  used  as  parameters)  and  as  contours.  Confidence 
regions  can  be  displayed  for  the  statistical  model,  if 
the  design  is  replicated,  or  an  independent  estimate  of 
the  error  variance  is  available.  The  use  of  these 
facilities  was  illustrated  for  response  surface  estimation 
and  the  exploration  of  likelihood  functions.  An  extension 
to  five  or  more  levels  for  each  factor  is  relatively 
straightforward  for  the  response  surface  estimation,  but 
more  complicated  for  the  drawing  of  contours.  Theoreti- 
cally, an  extension  to  orthogonal  polynomials  of  higher 
degree  poses  no  problems;  however,  the  detailed  implements- 
tion  requires  prepartion  of  extensive  computer  programs; 
it  will  be  seen  that  the  four-level  algorithms  are  much 
more  involved  than  the  three-level  approaches. 

The  second  major  tool  relied  on  the  existence  of 
J a comprehensive  set  of  central  and  non-central  statistical 

distribution  functions.  Since  computation  of  a single 
point  of  some  inverse  distributions  or  non-central  distri- 

t 

4 

\ 
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P 


butions  may  require  up  to  100  MSEC  of  central  processing 

B * 

| time,  and  since  graphical  representation  was  the  object 

of  the  research,  a decision  was  made  to  evaluate  a function 
exactly  at  11  equally  spaced  points  only,  and  to  connect 
these  points  by  cubic  spline  interpolation.  These  facili- 
ties were  illustrated  for  hypothesis  testing  of  the 
Lehmann  type  (where  Hq  is  an  interval) , for  testing 
equalities  of  multiple  correlation  coefficients,  and  for 
confidence  interval  estimation  in  the  latter.  To  illustrate 
the  incorporation  of  new  units,  an  example  has  been 
included  which  displays  the  c.d.f.  of  the  largest  characte- 
ristic root  of  a matrix  product  (used  in  canonical  corre- 

I t 

lation  and  in  the  multivariate  analysis  of  variance) . 

Graphically  determined  points  were  compared  with  Heck’s 
charts  [10],  which  served  as  verification  both  of  our 
programs  and  the  charts. 

4 The  programs  were  implemented  on  an  IBM  2250 

graphics  console  (1965  version)  which  is  becoming 

il 

obsolescent.  The  first  task  for  further  study  would  be 
the  adaptation  to  newer  equipment  and  other  computers . 

Some  initial  work,  on  an  Analysis-of-Covariance  was 
done  by  Hayward  and  Bargmann  [ 9] , and  should  point 
the  way  for  adaptation  of  the  present  programs. 

! 

Before  considering  the  case  of  five  or  more  levels 
per  factor,  it  may  be  worthwhile  to  modify  the  extended  j 

Yates  algorithm  for  handling  fractional  factorial  designs,  j 

! 

1 
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or  even  undesigned  studies.  Also,  especially  in  sequential 
response  surface  estimations,  the  program  should  be 
extended  to  store  the  information  from  one  session  to  the 
next.  The  "BLOWUP"  programs  are,  at  present,  restricted 
to  the  use  of  built-in  functions,  and  functions  of 
functions.  To  permit  study  of  more  complicated  distri- 
butional problems,  it  may  be  useful  to  include  interpretive 
facilities  of  the  APL  type,  so  that  functions  and  mathe- 
matical operations  can  be  concatenated. 

The  present  programs  are  specifically  designed  for 
mathematical  statisticians,  thus  no  attempt  has  been  made 
to  include  tutorial  aids  other  than  instructions  for  the 
technical  aspects  of  conversation  with  the  computer.  The 
use  of  these  programs  for  instruction  is  illustrated  in 
section  5.3  where  a Lehmann  test  is  carried  out,  and  in 
section  5.1  where  the  behavior  of  power  functions  under 
various  degrees  of  alternatives,  a levels,  and  sample  sizes 
is  displayed.  In  more  modern  equipment,  such  sequences 
of  displays  could  be  stored  on  magnetic  disk  and  presented 
to  students  as  a unit. 


J 
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APPENDIX  A 
ORTHOGONAL I Z AT ION 

Let  y^_.  denote  the  observation  on  some  output  variable 
subjected  to  two  factors  (chosen  for  simplicity)  each  having 
3 levels  (again  for  simplicity).  Let  i = 1,  2,  3 denote  the 
low,  medium,  and  high  level  of  factor  A and  j = 1,  2,  3 the 
low,  medium,  and  high  level  of  factor  B.  To  avoid  double 
subscripts,  let  A denote  the  z value  for  factor  A,  i.e., 

A=-l  for  i=l,  0 for  i=2,  and  1 for  i=3;  and  let  3 denote  the 
z-value  for  factor  B,  i.e.,  B=-l  for  j = l,  0 for  j =2 , and 
1 for  j = 3.  One  can  then  write  the  ''parametric"  form  of  the 
32  factorial  model  as 

(1)  yijk='i+ot1A+cx2A2  + g1B+$2B2 


+YllAB+Y21A2B+Y12AB2+Y22A2B2+eijk 
where  e. is  some  experimental  error.  The  a,  3,  and  y are 

1 3 K 

the  coefficients  of  the  "response  equation"  for  standard 
input  values.  The  main  use  of  this  equation,  once  its 


coefficients  have  been  estimated  from  experimental  data,  is 
for  purposes  of  interpolation.  By  one  of  the  conversion 
formulas  in  section  2.1»  a oair  of  raw  input  values  (T-values) 
can  be  translated  into  standard  values (A  is  the  z-value  for 
factor  B) , and  the  y-value  can  be  predicted  (really, 


j 


• r 


\ 
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interpolated  in  several  dimensions) . By  statistical 

methods  one  can  also  determine  which  of  the  coefficients 

(the  a's,  g's,  or  y's)  contribute  significantly  to  the 

prediction.  If  the  combined  effect  of  the  a's  is  not 

appreciably  greater  than  that  of  the  e , we  say  that  A 

ijk 

effect  is  "non-significant" , an  analogous  statement  is  made 
for  the  B effect  in  terms  of  the  a's.  If  the  y effects  are 
negligible  we  say  that  the  model  is  "additive"  (or,  to  use 
a more  confusing  statistical  term,  we  say  that  there  is 
"no  significant  interaction"  between  the  two  factors  — 
this  latter  statement  should  never  be  taken  at  its  semantic 
face  value ! ) 

If  further  breakdown  of  contributions  into  "linear" 
and  "quadratic"  is  desired  we  must  first  reformulated  our 
polynomials  in  such  a way  that  effect  estimates  are 
additive  (uncorrelated) . This  can  be  attained  by  the 
classical  technique  of  defining  "orthogonal  polynomials". 
This  technique  also  permits  solution  of  the  estimation 
equations  in  simple,  systematic,  steps,  and  is  illustrated 


as  follows: 
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Disregarding  errors  we  can  write,  explicitly 


-1 

yll 

“l 

-1 

1 

-1 

1 

1 

-1 

-1 

l" 

u 

y21 

1 

0 

0 

-1 

1 

0 

0 

0 

0 

al 

y31 

1 

l 

1 

-1 

1 

-1 

-1 

1 

1 

a2 

y12 

1 

-l 

1 

0 

0 

0 

0 

0 

0 

Pi 

y22 

= 

1 

0 

0 

0 

0 

0 

0 

0 

0 

82 

y32 

1 

1 

1 

0 

0 

0 

0 

0 

0 

Y11 

Y 13 

1 

-1 

1 

1 

1 

-1 

1 

-1 

1 

y21 

y23 

1 

0 

0 

1 

1 

0 

0 

0 

0 

Y12 

Y33 

U -J 

1 

1 

1 

1 

1 

1 

1 

1 

1 

_y22_ 

Y_  X$_ 


(where  it  should  be  recalled  that  A=-l  if  the  first  sub- 
script is  1,  0 if  the  first  subscript  is  2,  and  +1  if  the 
first  subscript  is  3;  B is  the  same  for  the  second  sub- 
script. This  is  the  complete  model  of  equation  (1) 
spelled  out  for  all  observations. 

If  each  observation  is  repeated  (so  that  experimental 
error  may  be  estimated)  the  best  fitting  values  of  4.  can 
be  estimated  by  the  well-known  least-squares  equations. 


» 
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A 


(2)  X'X$  = X'£ 

where  X*  is  the  transpose  of  X.  In  the  above  example  X'X  = 


Orthogonalization  is  achieved  by  translating  the  data 
matrix  X into  a matrix  Z . 

(3)  Z = XQ 

Where  Q is  to  be  chosen  in  such  a way  that 
Z'Z  = Q'X'xQ=D=diagonal 

Q is  chosen  as  an  upper-triangular  matrix.  If  (as  in  the 
illustration)  the  elements  of  X are  polynomials,  the  set 
Q contains  the  coefficients  of  the  “orthogonal  poly- 
nomials". A simple  Gram-Schmidt  decomposition  on  the 
X'X  matrix  shows  that  Q,  for  our  example,  is 
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Q = 


-2/3 

0 

1 


0 

0 

0 

1 


-2/3 

0 

0 

0 

1 


0 

0 

0 


0 0 

0 -2/3 

0 0 


0 -2/3 

0 0 

1 0 
1 


0 

0 

0 

0 

1 


4/9 

0 

-2/3 

0 

-2/3 

0 

0 

0 

1 


When  we  recall  that  the  rows  of  X are 


2„2 


1,  A,  A2,  B,  B2,  AB,  A2B,  AB  ,A~B 

we  see  that  the  elements  of  Z=XQ  will  be 

22  29  2 ~ 2 
1,  A,  A - £ , B,  Bz  - 4,  AB,  A B - £ B,  AB  -2. A, 

„ 3 3 3 3 

22o2->9^ 

A B - £.B  - £.AZ  + £ which  can  be  written  more 

3 3 9 

compactly  as 

, 2 2 2 
1,  A,  I(3A  -2),  B,  1 (3B  -2),  AB,  £(3A  -2)B, 

i 2 3 2 2 3 3 

£ ( 3B  -2)  , I (3A  -2)  (3B  -2) 

3 9 

The  expression  3A  -2  is  called  the  quadratic  "orthogonal 
polynomial"  in  A for  3 equally  spaced  (and  equally 
weighted)  discrete  points.  The  usual  algorithm 
multiplies  the  columns  of  Q in  such  a way  that  all  elements 
are  integers. 

We  new  have 

A A 

X ' X£  =X  ' £ (and  £ is  desired) 

XQ=Z  such  that  Z ' Z=D  (diagonal) 

D£  = Z 


\ 
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A _ 1 A 

where  \p  = Q are  called  "coefficients  of  the  orthogonal 

polynomials" ; 

~ -1 

hence  = D Z'^  are  the  solutions,  and,  given  \p  we  can 
find 

/\  ss 

_£  = Q^;  this  is  called  the  "Back  Solution".  Trie 
elements  of  Z’y  can  be  obtained  in  a systematic  and 
simple  procedure  which  is  illustrated  in  Chapter  II. 
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APPENDIX  B 


ORTHOGONAL  POLYNOMIALS 


The  following  Orthogonal  Polynomials  are  assumed  in  this 
research 


*0(z)=l 
$ (z)=z 


z=l,  1 


(z)  =1 
$ (z)=z 
(z)=3z2-2 


z = -l ,0,1 


with  values  as  follows 


$0  (z)=l 
(z ) = 3z 

<J>2  ( z ) =9/4 z2-5/ 4 
$t(z)=45/4z^-41/4z 


z=-l, -1/3, 1/3,1 


0o  (z)  4>  (z)  z 4>  (z)  (z)  4>2(z)  2 $o  ^ ^l^2*  $2  ^ $3  ^ 


(2)  (2) 


0 -2  -1/3  1 -1  -1 

11  1/31  1-1 


(3)  (2)  (6) 


(4)  (20)  (4)  (20) 


The  number  in  parentheses  below  each  column  is 


E $ f (z) 
z 


250 


Comments  for  Illustration 

For  2 Levels  (B) , the  (only)  linear  contrast  is  - Bq 
For  3 Levels  (A,C)  the  linear  contrast  is  A2  - Aq 

the  quadratic  contrast  is  A^  + Aq  - 2A^ 

The  columns  from  which  3-level  factors  are  to  be  calcu- 
lated (T  and  B)  are  grouped  in  triples.  The  column (s) 
from  which  2-level  factors  are  to  be  calculated  (A)  are 
grouped  in  pairs. 

The  first  six  entries  in  A are  the  sums  of  the  triples  in  T 
The  first  six  entries  in  C are  the  sums  of  the  triples  in  B 
These  six  entries  are  summed  in  the  Check-Sum^  (following 
a2b  ) 

The  second  six  entries  in  A are  the  differences  between  the 
highest  (last)  and  lowest  (first)  entries  in  each  triple  of 

T. 

The  second  six  entries  in  C are  the  differences  between  the 
highest  (last)  and  lowest  (first)  entries  in  each  triple  of 

B. 

These  six  entries  are  summed  in  the  Check-Sum^  (foil.  a2bc) 

The  last  six  entries  in  A (C)  are  obtained  as  first  + last 
- 2 (middle)  entries  in  each  triple  of  T (B) . 

These  six  entries  are  summed  in  the  Check-Sun^  at  end  of 


J 


table . 
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The  entries  in  B are  obtained  as  in  illustration  1.  The 

first  nine  entries  are  the  sums  of  each  pair  in  A.  They 

2 

are  summed  in  Check-Sun^,  foil,  a c. 

The  second  nine  entries  are  the  difference  between  the 
high  (last)  and  low  (first)  entries  in  each  pair  of  A. 

They  are  summed  in  Check-Sum^,  at  the  end  of  the  table. 

For  T and  B one  forms  the  sum  of  all  elements,  the  sum  of 
all  high  (last)  elements  in  each  triple,  and  the  sum  of 

all  low  (first)  elements  of  each  triple.  The  columns  T 

and  B are  those  which  are  followed  by  3-level  factors.  The 

Sum  of  column  T agrees  with  the  first  Sum^  of  A.  Hi-Lo  of 

column  T agrees  with  the  second  Sum^  of  A.  Hi+Lo-2Mi 
agrees  with  the  final  Sum^  of  A. 

The  same  agreement  holds  for  the  table  sums  in  B and  the 
check-sums  in  C. 

The  table  sums  in  A (a  column  followed  by  a 2-level  factor) 
and  the  check-sums  in  B are  the  same  as  in  illustration  1. 

The  elements  of  Cntr.  (contrast  estimates)  are  the  entries 
of  the  (final)  column  C,  each  divided  by  D^. 

The  elements  of  S.Squ.  (sum  of  squares  for  each  contrast) 
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APPENDIX  D 


FORTRAN  IV  LISTING  OF  FUN1 


DOUBLE  PRECISION  FUNCTION  FUNl (X , AM , AN ) 
IMPLICIT  REAL* 8 ( A , B , D , F ) 

DOUBLE  PRECISION  X,COE 
DX  = X 

AMP  = AM  + 1 . DO 

ANP  = AN  + 1 . DO 

DE  = 1 . DO 

FUNl  = DE 

IF(X.EQ.DE)  RETURN 

FUNl  = O.DO 

IF (X.EQ.O.DO)  RETURN 

IF (X* (DE-X)  .LT.O.DO)  RETURN 

IF (AMP.LE.O. 1 .OR.  ANP.LE.Ol)  RETURN 

AMPP  = AMP+AMP 

ANPP  = ANP+ANP 

A = BETAX(X, AMPP, ANPP) 

COE  = DLGGM (AMPP+ANPP+DE) 

1 -DLGGM (AMPP+DE)  - DLGGM (ANPP+DE ) 

COE  = COE  - DLGGM (AMP+ANP+DE) 

1 +DLGGM (AMP+DE)  + DLGGM (ANP+DE ) 

COE  = COE  + AMP*DLOG (X)  + ANP*DLOG (DE-DX) 
BB=BETAX (X , AMP , ANP ) 

IF (BB.GT.O.DO)  GO  TO  14 

FUN1=A 

RETURN 

14  COE  = COE  + DLOG(BB) 

FUNl  = A - DEXP(COE) 

RETURN 

END 


V 
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appendix  e 


PROGRAM  LISTINGS 
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DEFINE  FILE  1 81 250 .80 .E . I REC  ) . 1 9( 270 .6 .U . JPO INT  I 
DOUBLE  PRECISION  OSSQ.DER 
COMMON  /YATDAT / D66Q.DER. 

3LVL! 4) .NFG.IRAW.DAT! 256 I.NEND! 4.4) .TTL! 20) . 

1 VNflMI 2 ) .NAME!8).FHT(80).IC0DE.IL!6).NIN.N0UT.N0X.NF. 

2NVBL.NREP.C0NC0MI 4.4  J.NRI256)  .FA .FB .ND1 ! 256  ) .IV.NW 
COMMON  /DIRAC/  IREC  . JPOINT  .NDM  .L6AV 
N IN=5 
N0UT=18 
NW=30 
N0H=4 
LSAV=1 9 
IRAM=1 
NDX=5 
NVBL=1 
REWIND  8 

CALL  PLOTS! IDUM.JDUM.8) 

10  CALL  BEGIN! 420 .(30 ) 

20  CALL  INPUTU30.440) 

30  CALL  EDIT 
40  IREC=1 

CALL  YATES 
70  CALL  BACK 
50  IREC=1 

CALL  PAGI T( (30.(60 .4701 
60  CALL  PL0TTRU30.450) 

END 


YATES 

MAIN  PROGRAM 
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SUBROUTINE  BEGINl».«) 

EXTERNAL  EOBINT 
COMMON  KEY  .IOVLY  .ITYPE.JTYPE 
COMMON  .'OI*AC/  IREC.JPOINT  .NOM.LSAV 
CALL  GRINITl 'B* ) 

CALL  GCE081 E08INT I 
CALL  MASK  I T ( 1 ) 

1 CALL  GRDPLYl  1 THIS  UNIT  WILL  PERFORM  AN  ANALYSIS  OF  VARIANCE  F 
10R  ANY’. 59. *1000) 

CALL  GRDPLYl ’COMPLETE  FACTORIAL  DESIGN  OF  THE  FORM  * .37 .*1 000 ) 

CALL  GROPLY ( ’ ’ . 1 .*1000) 

CALL  GRDPLYl’  R S T’. 35. *1000) 

CALL  GRDPLYl’  234  ’.41. *1000) 

CALL  GRDPLYl  * ’ .1  .*1000) 

CALL  GRDPLYl’  WITH  R+6+T  LESS  THAN  OR  EflUA 

1L  TO  4'. 59. *1000) 

CALL  SPACE ( 1 ) 

CALL  GRDPLYl’  FOR  UP  TO  6 REPLI CAT  IONS . ’ .30 .* 1 000 ) 

CALL  SPACE ( 1 ) 

CALL  GRDPLYl*  IF  DESIRED.  THE  UNIT  WILL  ALSO  DETERMINE  THE  EQU 
1ATI0N  OF  ’ .61 .*1000) 

CALL  GRDPLYl  ’THE  RESPONSE  SURFACE  AND.  FURTHER.  WILL  ALLOW  THE  USE 
IR  TO’. 57. *1000) 

CALL  GRDPLYl ’EXAMINE  PLOTS  OF  THIS  SURFACE .’ .30 .* 1 000 ) 

CALL  SPACEl  1 ) 

CALL  ORDPLYl  ’ AT  ANY  POINT  DURING  THE  SESSION.  THE  USER  MAY  RE 
1 TURN  TO  THE’. 64. *1000) 

CALL  ORDPLYl ’GMS  MONITOR  BY  DEPRESSING  PROGRAM  FUNCTION  KEY  31. ’.5 

10. *1000) 

CALL  SPACEl  1) 

CALL  GRDPLYl’  PLEASE  DEPRESS  E I THER  ’ .26 . *1 000  ) 

CALL  GRDPLYl'  KEY  1 IF  YOU  WISH  TO  ENTER  DATA.  OR’. 45. *10 

100) 

CALL  GRDPLYl’  KEY  2 IF  YOUR  DATA  ARE  STORED  ON  DISK. ’.48. 

1*1000) 

24  CALL  TWAITll .0.0.0) 

CALL  GERASl 100 ) 

CALL  ORRLSE 
IFIKEY.E0.2)  RETURN  2 
RETURN  1 

1000  CALL  GERASl 100) 

GO  TO  1 
END 


s 
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SUBROUTINE  5 NPUT f « . ■ 1 
EXTERNAL  EOBINT 
DOUBLE  PRECISION  DUMMY 
DOUBLE  PRECISION  DSSQ.OER 
REAL  NAME 

DIMENSION  TEXT! 20) .JTYPEt  4I.N0PI6) .ISETI6)  .REP  t 6 ) 

DIMENSION  TEMTTLI20) . TEMNAMI 2 ) 

DIMENSION  FAME ( 8 5 

DIMENSION  INHEADI 4) .ABCOI 4) . I X ( 6 5 .L  TXT (20) 

COMMON  KEY.IOVLY.ITYPE.JTYPE 

COMMON  /BAKOAT/  A(256).VSE  ,S6( 256 1 .NER .SSE .SSER .NERR 

COMMON  /YATOAT/  DSSO.DER. 

3LVLI  4) .NFG.IRAW.0ATI256) .NENOl 4.4  ) .TTLI20)  . 

1VNAMI2) .NAMEI8) .FMTI80) .IC0DE.ILI6) .NIN.NOUT.NDX.NF. 

2NVBL .NREP .CON COM! 4 .4 ) .NR( 256 ) .FA .FB .NOl f 256  ) . I V .NH 
COMMON  /DIRAC/  IRCC.JPOINT .NDM.LSAV 
DATA  INHEAO/’A  = \’B  = ’ . 'C  = '.’Or  V 
DATA  ABCO/ 'A  * . '8' . ’C  ’ . *C '/ 

DATA  FAME/ ’FACA” . ’ ’ . 'FACB  * . ' •.’FACC’.'  ’.’FACO’.’  V 
DATA  NOP/6* 1 / 

DATA  I 6ET/6" 1 / 

DATA  TEMTTL.TEMNAM'22"’  V 
OATA  LBLNK/ * '/ 

DO  7 1 = 1 .0 
7 NAME! I )=FAME(  I ) 

DO  9 1=1.4 
LVL( I )=1 
DO  9 J=1  .4 
9 CONCOMl I ,J)=J 
00  11  I J=1 .256 
DAT ( I J 1=0  - 
NR  I IJ)=0 
11  CONTINUE 
0SSQ  = 0 .DO 
DER=O.DO 
IC00=0 

VNAM ( 1 ) = TEMNAMI  1 ) 

VNAMI 2)=TEMNAMI 2) 

DO  13  K= 1 .20 
TTL( K )=TEMTTLI K ) 

13  CONTINUE 
,TC=72 
NS=68 

CALL  OR  I N I T(  '8'; 

CALL  GCE08I EOBINT ) 

CALL  MASK  I T ( 3 ) 

27  I ERR - 1 

CALL  GRDPLYI  ’PLEASE  ENTER  THE  NUMBER  OF  FACTORS . ' ,35 .41000 ) 
CALL  TWAITIO.O.l .0) 

CALL  GRRPLX ( TEXT .NC ) 

CALL  OROPLYI TEXT, NC. 41000) 

INDEX=0 

CALL  I NX l TEXT. INDEX. NC. DUMMY. 4900) 

NF=DUMMY*  .00) 
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IF1NF.GT.4)  GO  TO  905 

CALL  GROPLYt  ‘PLEASE  ENTER  THE  NUMBER  OF  REPLICATIONS •’ ,40 .41 000) 

29  I ERR=2 

CALL  TWA  I T ( 0 .0 . 1 ,0) 

CALL  GRRPLXt TEXT ,NC) 

CALL  GROPLYI  TEXT ,NC. 41000) 

I NDEX=0 

CALL  I NX ( TEXT . INDEX ,NC .DUMMY ,4900 ) 

NREP=DUMMY+ .001 
IFINREP.NE.il  GO  TO  129 

CALL  GROPLYt  'ENTER  AN  ESTIMATE  OF  THE  MSE  . ’ .29 .4 1 000  ) 

CALL  TWAITtO.O.l .0) 

CALL  &RRPLXITEXT.NC) 

IN0EX=0 

CALL  I NX ( TEXT. INDEX. NC. DUMMY. 4900) 

VSE=DUMMY 

CALL  GROPLYt  ‘UPON  HOW  MANY  DEGREES  OF  FREEDOM  IS  THE  ESTIMATE  BASE 
ID?'  .55.41000) 

CALL  TWAI T( 0.0 . 1 .0) 

CALL  GRRPLX ( TEXT .NC ) 

INDEX=0 

CALL  I NX ( TEX T. INDEX. NC. DUMMY. 4900) 

NER=OUMMY+ .1 

129  IFtNREP.GT.6)  GO  TO  910 

CALL  GROPLYt  'OEPRESS  KEY  1 TO  CONTINUE  .’  .26 .4900  ) 

CALL  TWAITt 1 .C.0.0) 

CALL  MASK  I Tf  3 1 
CALL  GERASt 100) 

CALL  GROPLYt  ‘OEPRESS  KEY  1 TO  USE  OEFAULT  NAMES  FACA.  FACB.  ETC.'. 
151  .41000) 

CALL  GROPLYt  ‘OR  ENTER  THE  NAME  OF  THE  FIRST  FACTOR  (LIMIT  8 LETTER 
IS).  '.56.41000) 

CALL  TWAITt 1.0.1 .0) 

IF( ITYPE.EQ.l ) GO  TO  100 
CALL  GRRPLXt TEXT. NC) 

CALL  GROPLYt TEXT. NC. 41000) 

NAMEt 1 )=TEXT( 1 ) 

* NAME ( 2 ) = TEX T( 2 ) 

NUP=2*NF -3 
IF(NF.EQ.2)  GO  TO  60 
DO  50  U3.NUP.2 

CALL  GRDPLYt  'PLEASE  ENTER  THE  NAME  OF  THE  NEXT  FACTOR  . ’ . 4 1 , 41 000  ) 
CALL  TWAITt  0.0.1 .0) 

CALL  GRRPLXt  TEXT .NC) 

CALL  GRDPLYl  TEXT. NC. 41000) 

NAMEt I ) = TEX  T ( 1 ) 

NAMEt  M 1 -TEX T ( 2 ) 

50  CONTINUE 

60  CALL  GRDPLYt  'PLEASE  ENTER  THE  NAME  OF  THE  LAST  FACTOR  .*  .41  .41000 ) 
CALL  TWAI T (0.0.1 .0) 

CALL  GRRPLXt TEXT. NC) 

J CALL  GRDPLYtTEXT.NC. 41000) 

r NAMEINUP*2)=TEXT( 1 ) 

f NAMEt  NUP  *3 )=TEXT( 2 ) 
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100  CONTINUE 
31  I ERR  = 3 

CALL  GERAS! 100) 

CALL  GRDPLY! 'THERE  HILL  BE  AN  OPPORTUNITY  RT  THE  ENO  OF  THIS  FRAME 
1 ’ .53.41000) 

CALL  GRDPLY ( ’ TO  CORRECT  ANY  INPUT  ERRORS .' .28 .41000 ) 

NFG=  1 

00  110  1 = 1. NF 
J=2»( 1-1  ) *1 

WRITE! NOM .500  ) NAME! J ) .NAME! J+l  ) 

CALL  FETCH! TEXT  .NC  ) 

CALL  OROPLYITEXT.MC. 41000) 

108  CALL  THAI T( 0 .0 . 1 .0 ) 

CALL  ORRPLXl TEXT .NC ) 

IN0EX=0 

CALL  I NX ( TEXT . INDEX. NC.OUMMY. 4900) 

LVL( I )=DUMMY+ .0001 

IFtLVLl I ) .OT.l .ANO-LVLl I ) -LT.5)  00  TO  108 

CALL  GRDPLY! 'ILLEGAL  VALUE-  PLEASE  RE-ENTER ' .31 .41000) 

GO  TO  108 

109  NFG=NFG«LVL( I ) 

HR  I TE ( NDM  .510)  I.LVL(I) 

CALL  FETCH(TEXT.MC) 

CALL  GRDPLYI TEXT. MC. 41000) 

CALL  SPACE! 1 ) 

110  CONTINUE 

CALL  MASK  I T ( 1 ) 

CALL  GRDPLY!  'DEPRESS  KEY  1 TO  CONTINUE  OR  KEY  2 TO  RE-ENTER  LEVELS 
1 . ' .52.41000) 

CALL  THAIT! 1 .0.0.0) 

IFIKEY.E0.2)  GO  TO  100 
CALL  GERAS! 100) 

CALL  GRDPLY!  ' IF  YOU  NISH  THE  LEVELS  OF  THE  FACTORS  TO  BE'.  40. 
141000) 

CALL  GRDPLY! 'l  FOR  LEVEL  1.  2 FOR  LEVEL  2,  ETC.  DEPRESS  KEY  1*. 
149.41000) 

CALL  SPACE! 1 ) 

CALL  GROPLY! ' IF  YOU  HI8H  TO  ENTER  VALUES  FOR  THE  LEVELS.  DEPR 
1 ESS  KEY  2’. 62. 41000) 

* CALL  THAIT! 1 .0.0.0) 

IF1KEY.EQ.1 ) GO  TO  200 
DO  150  1 = 1 .NF 
125  CALL  SPACE! 1 ) 

J=2«  ( I - 1 ) + 1 

HR  I TE ! NDM .520 ) NAME! J ) .NAME ( J + l ) 

520  FORMAT!  'ENTER.  SEPARATED  0Y  COMMAS . THE  LEVELS  FOR  ’.2A4) 

CALL  FETCH! TEXT .MC ) 

CALL  GRDPLY! TEXT. MC. 42000) 

155  CALL  THAI Tt  0 .0 . 1 .0) 

CALL  &RRPLXITEXT.NC) 

CALL  SPACE! 1 ) 

CALL  GROPLY! TEXT. NC. 42000) 

IN0EX=0 

j NL=LVL!I) 


DO  135  K = 1 ,NL 

IFl INDEX -LT .0 ) 00  TO  855 

CALL  I NX  ( TEXT, INOEX.NC. DUMMY. 4850) 

CONCOMt I .K)=DUMHY 
135  CONTINUE 
00  TO  150 

055  CALL  OROPLYl  'THERE  ARE  LESS  NUMBERS  THAN  EXPECTED.  PLEASE  RE-ENTE 
1R  LINE' .59.(1 000  1 
00  TO  155 

850  CALL  ORDPLYf  'AN  ERRONEOUS  NUMBER  WAS  ENTERED.  DEPRESS  KEY  2 TO  T 
1RY  AOAIN • ’ .61 .41000) 

CALL  TWA  1 T l 1 .0.0.0) 

00  TO  125 
ISO  CONTINUE 
200  CALL  SPACE! 1 ) 

CALL  ORDPLYt  'OEPRESS  KEY  1 TO  CONT INUE ' .25 .4 1 000  ) 

CALL  TWAI T ( 1 .0.0.0) 

CALL  OERASUOO) 

CALL  MASK  I T ( 10) 

CALL  ORDPLYt’  ENTER.  SEPARATED  BY  COMMAS.  ALL  REPLICATIONS  F0» 
1 ’ .53.42000) 

CALL  ORDPLYt  'THE  FACTOR  LEVELS  INDICATED  ' .27 .42000  ) 

CALL  SPACEt 1 ) 

WR I TE ( NDM  .540  ) ( INHEADt  KOUT ) .NAMEt  2«K0UT-1 ) .NAMEt  2»K0UT  ) ,K0UT=1  . 
INF) 

CALL  FETCHt TEXT.MC) 

CALL  OROPLYl TEXT.MC. 42000) 

CALL  SPACEt 1 ) 

CALL  ORDPLYt’  DEPRESS  KEY  30  TO  EDIT  A LINE  OF  DATA.  '.43. 
141000) 

CALL  SPACEt 1 ) 

WRI TE(NDH. 545)  t RBCDt KOUT) .KOUT=I .NF) 

CALL  FETCHt  TEXT  .MC  ) 

CALL  OROPLYl TEXT.MC. 42000) 

CALL  SPACEt 1 ) 

540  FORHATt  4( 3A4 .4X ) ) 

545  FORMAT ( 'CELL ' . 4 ( 1 X . A1 ) ) 

DO  107  K8L=1 .4 
LTXT ( KBL )=LBLNK 
107  CONTINUE 

DO  401  1 = 1 .NFO 

402  IFII.GT.36)  CALL  OERAS(l) 

CALL  ANAL ( I . IXI] ).IXi2).!X(3).IX(4)) 

WRITE (NDM.  560)  I . t IX(KCUT)  ,K0UT  = 1 .NF) 

CALL  FETCHt  LTX  T ,HC  ) 

CALL  OROPLYtLTXT.MC. 42000) 

560  FORMAT l 12. 2X  .412) 

41 1 CALL  TMAITt 1.0.1  .0) 

IF ( I TYPE  .EQ  . 1 ) 00  TO  700 
CALL  GRRPLX ( TEXT .NC ) 

IN0EX=0 

DO  406  J=1  .NREP 

I F ( INDEX  -LT  .0)  00  TO  408 

CALL  INXt TEXT.  INDEX.  NC. DUMMY. 4853) 
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DAT  £ I )=OATl  I ) -OUfinr 
OSSQ=OSSQ»OUNMY»DUMMY 

rep(  J)=ounrir 
GO  TO  406 

853  CALL  GRDPLY!  'AN  ERRONEOUS  NUMBER  WAS  ENTERED.  TRY  AGAIN. '.44. 

HI  000) 

IFIJ.Efl.l  ) GO  TO  411 
DAT l 1 1=0. 

JNO-J-1 

DO  854  IJ=1 . JMO 
DSSO=DSSO-REP£I J)»REP( IJ) 

854  CONTINUE 
GO  TO  411 

406  CONTINUE 

WRITE! LSAV  * I 1 REP 
CALL  G8KSP! 1 ) 

WRITE! NOM  .570  1 ( LTXT! KOUT ) ,K0UT=1 .3 1 . 1 TEXT ( JOUT ) , JOUT  = 1 . 1 5 1 
510  F0RNATI3A4.1X.15A4) 

CALL  FETCH! TEXT. MC) 

CALL  GROPLY ( TEXT .HC  H2000 ) 

GO  TO  401 

408  WRITE! NOM  .575  ) NREP 

575  FORMAT!  ’YOU  010  NOT  ENTER  Ml.’  REPLICATIONS.  RE-ENTER  LINE’) 
CALL  FETCH! TEXT  .MC) 

CALL  GRDPLYITEXT.MC. 42000 ) 

GO  TO  411 

700  IFU.OT.32)  CALL  GERAS  ( 4 ) 

CALL  GROPLY! ’ENTER  THE  NUMBER  OF  THE  CELL  THAT  YOU  WISH  TO  EDIT.’ 
151 .42000) 

437  CALL  TWAITlO.O.l  .0) 

CALL  GRRPLXlTEXT.NO 
INDEX-0 

CALL  INX! TEXT. INDEX. NC. DUMMY. 4924) 

GO  TO  925 

924  CALL  GRDPLY!  'RE-ENTER  CELL  NUMBER  . ' .2 1 . 4 1 000  ) 

GO  TO  437 

925  IE0IT=DUMMY*.05 
READ! LSAV  ’ IEDI T ) REP 
DO  418  JJ=1  .NREP 

DAT! IEDIT )=OAT( IEDIT ) -REP! JJ  ) 

DSSO=DSSQ-REP! JJJ-REP! J J ) 

416  CONTINUE 

CALL  ANAL! IEDIT.IX(1).IX!2).IX(3).IX(4)) 

CALL  GRDPLY!  ’ENTER  THE  NEW  DATA ’. 1 8 .42000  ) 

WRITE (NOM. 560)  IEDIT.! IX! KOUT ) ,K0UT=1  . NF  ) 

CALL  FETCH! LTXT  .MC  ) 

CALL  GROPLYILTXT.MC. 42000) 

431  CALL  TWAITlO.O.l  .0) 

CALL  ORRPLXITEXT.NC) 

CALL  GBKSP! 2 ) 

WRITE l NON, 570) (LTXT (KOUT ) ,K0UT=1 . 3 ) . ( TEXT l UOUT  ) ,J0UT=1  .15  ) 

CALL  FETCH! LTXT  .MC  ) 

CALL  GROPLYILTXT.MC. 42000) 

INDEX=0 
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DO  426  J=1  .NREP 

I F ( INDEX- LT.O)  GO  TO  428 

CALL  I NX ( TEXT . INDEX .NC .DUMMY  .4859  I 

REP! J)=DUMHY 

OAT ( I EO I T )=DAT ( IEDIT)*DUMMY 
DSSQ=ossqi-ouhmy»ouhny 
GO  TO  426 

859  CALL  GROPLYl'AN  ERRONEOUS  NUMBER  NAS  ENTERED.  TRY  AGAIN. * .44. 

moooi 

I F I J.EQ.l  I GO  TO  431 
DAT! IEDITJ-O. 

JHO=J-l 

DO  856  I J=1 • JMO 
DSSQ=OSSO-REP! I J X-REP t IJ) 

856  CONTINUE 
GO  TO  431 
426  CONTINUE 

WRITEtLSAV'IEOIT)  REP 
GO  TO  402 

428  WRITE! NDM .575  ) NREP 
CALL  FETCH! TEXT .MC  I 
CALL  GRDPLYI TEXT. MC. 42000) 

GO  TO  431 
401  CONTINUE 

CALL  GERAS! 3 I 
CALL  MASKIT! 1 1 

CALL  GROPLY!  ’DATA  ENTRY  IS  COMPLETE.  '.23.410001 

CALL  GROPLY!  ’DEPRESS  KEY  1 TO  PERFORM  ANALYS I S ’ .33 . * 1 000 ) 

CALL  GROPLY!  ’DEPRESS  KEY  2 TO  REVIEW  OR  EOIT  DATA  .'.37.41 000 1 
CALL  TWAIT! 1 .0.0.0) 

WRITE! LSAV  ’257  ) NF.NREP.LVL 
WRITE! LSAV  *258  ) DER.DSSQ.NFG 
WRITE! LSAV ’260  ) NAME  .CONCCM  . VSE 
IF! KEY  .EG  . 1 ) GO  TO  550 
CALL  GRRLSE 
RETURN  1 

550  CALL  GERAS! 100) 

CALL  MASKIT! 1 ) 

CALL  SPACE!  1 ) 

CALL  GRDPLYI 'DEPRESS  KEY  1 TO  DELETE  EACH  SINGLE  OEGREE  OF  FREEDOM 
1 F LESS  THAN  1 .0*  ,69.4,10001 

CALL  GROPLY!  ’DEPRESS  KEY  2 TO  RETAIN  ALL  F VALUES  ' .36,41 000 ) 

CALL  TWAIT! 1 .0.0.0) 

FA= 1 .0 

IF ( KEY  .EQ  .2  ) FA=0  . 

CALL  GERAS! 100) 

CALL  GRRLSE 
RETURN  2 
2000  CONTINUE 
1000  WR I TEl 6.530  ) 

530  FORMAT!  '1SCREEN  FULL  BUO’) 

CALL  GRRLSE 
RETURN 

900  CALL  GERAS! 100) 


I 
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CALL  OROPLY ( 'AN  ERRONEOUS  NUMBER  HAS  ENTERED.  PLEASE  TRY  AGAIN.’. 
151 .<10001 

GO  TO  127.29.31 1 . IERR 
905  CALL  GERAS! 100) 

CALL  OROPLYl’TME  NUMBER  OF  FACTORS  MUST  BE  LESS  THAN  5 . ’ . 42 . <1 000  1 
GO  TO  27 

910  CALL  GERAS! 100) 

CALL  GROPLY ( ’ THE  NUMBER  OF  REPLICATIONS  MUST  BE  LESS  THAN  7.’.47.< 
11000) 

GO  TO  29 

500  FORMAT!  ’PLEASE  ENTER  THE  NUMBER  OF  LEVELS  FOR  ’.2A4) 

510  FORMAT!  ’FACTOR’. 12.*  HAS’. 12.*  LEVELS.’) 

END 
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subroutine:  eoit 

EXTERNAL  EOBINT 

DOUBLE  PRECISION  OUMMY .06SQ . OER 
REAL  NAME 

DIMENSION  TEXT(20).JTYPE(4).N0P!6).ISET!6).REP!6) 

COMMON  KEY.IOVLY.ITYPE.JTYPE 

COMMON  /BAKDAT/  A(256).VSE  .SS! 256 ) .NER .SSE .S6ER .NERR 
COMMON  /YATOAT / 0860. DER. 

3LVLI  41 .NFO. I RAH. OAT  12561 .NEND! 4 .4  ) .TTL! 20  ) . 

1VNAMI2) .NAME(8).FMT!80) . I CODE . ILf  6 ) .N I N .NOUT .NDX .NF  . 

2NVBL  .NREP  .CONCOMI 4 . 4 ) .NR( 256 ) .FA .FB .N01 ( 256 ) , I V .NW 
COMMON  /DIRAC/  IREC.JPOINT .NDM .LSAV 
DIMENSION  INHEADt  4)  .ABCDI 4 ) , IX! 6 ) ,LTXT( 4 ) 

DATA  JNHEAO  /’A  = ’.’B  s’.’C  = ’.’0  = '/ 

DATA  A8CD  /'A'.'B'.'C'.'D'/ 

OATA  L8LNK/’  V 
NC=72 

REAOILSAV ’257)  NF.NREP.LVL 
READIL6AV ’258)  DER. 0860. NFO 
READ! LSAV '260 ) NAME .CONCOM .VSE 
CALL  GRINIT!  ’B') 

CALL  GCEOB!  EOBINT ) 

50  CALL  GRDPLYl  * DEPRESS ’ . 1 2 . 4 1 000 ) 

CALL  GRDPLYl’  KEY  I TO  CONTINUE  NJTH  THE  ANALYS I S ’ . 45  . 

U1000) 

CALL  GRDPLYl’  KEY  2 TO  VIEW  THE  RAW  OATA  ’ .36 . 4 1 000  ) 

CALL  GRDPLYl’  KEY  3 TO  REPLACE  DATA ’ .31 .41000) 

CALL  MASK  I T C 4 ) 

CALL  TWA  I T( I .0.0.0) 

CALL  GERAS! 100) 

IF l KEY .EQ . 1 ) GO  TO  900 
IF! KEY .EQ  -2  ) GO  TO  500 
CALL  SPACE! 1 ) 

55  CALL  GROPLY! ’ ENTER  THE  NUMBER  OF  THE  CELL  THAT  YOU  WISH  TO  R 

1EPLACE. ’ .60.41000) 

90  CALL  TWA  I T ! 0 .0 . 1 .0) 

CALL  GRRPLXt  TEXT. NC) 

INDEX=0 

CALL  I NX!  TEXT. INDEX. NC. DUMMY, 4) 110) 

GO  TO  92 

1110  CALL  GRDPLYt  ’AN  ERRONEOUS  NUMBER  WAS  ENTERED.  PLEASE  TRY  AGAIN.’. 
151 .41000) 

GO  TO  90 

92  NCELL  = OUMMY*  .5 

IFINCELL.GT.O.AND.NCELL.LE.NFC)  GO  TO  100 
CALL  SPACE ( 1 ) 

CALL  GROPLY! ’THE  CELL  NUMBER  ENTERED  IS  OUT  OF  THE  PROPER  RANGE. 

1 TRY  AGAIN’ .62.41000) 

GO  TO  90 

100  CALL  GROPLY! ’ ENTER.  SEPARATED  BY  COMMAS.  ALL  REPLICATIONS  FOR 
1 ’ .53.41000) 

CALL  GROPLY!  ’THE  FACTOR  LEVELS  I NO  I CATED  ’ .27 . 4 1 000  ) 

CALL  SPACE! 1 ) 

WRITE! N0M.540)! INHEAD! KOUT ) . NAME ( 2«K0UT- 1 ) .NAME ! 2«K0U T ) .K0UT-1  .NF) 
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540  F0RMATM13A4.4X)  ) 

CALL  FETCH! TEXT .MC ) 

CALL  OROPLY! TEXT. MC. 41000) 

CALL  SPACE!  1 ) 

WRITE! NOM. 545)! ABCD(K0UT).KOUT=1 .NF) 

CALL  FETCH! TEXT .MC ) 

CALL  ORDPLY! TEXT. MC. 41000) 

CALL  SPACE! 1 ) 

CALL  ANAL ( NCELL  . IX ( 1).IX!2).IX(3),IX(4)) 

WRITE! NOM. 560)  NCELL .! IX! KOUT ) .KOUTzl .NF) 

CALL  FETCH! LTXT .MC ) 

CALL  OROPLY (LTXT .MC .41000 ) 

560  FORMAT! I2.2X.4I2) 

105  CALL  TWAI T( 0 .0 . 1 .0 ) 

CALL  ORRPLX! TEXT .NC) 

IN0EX=0 

00  120  J=1 .NREP 

IF! INDEX-LT.O)  00  TO  130 

CALL  I NX! TEXT. INDEX. NC. DUMMY. 4 11 00) 

REP! J)=DUMMY 
00  TO  120 

1100  CALL  OROPLY! ’AN  ERRONEOUS  NUMBER  WAS  ENTERED.  PLEASE  TRY  AOAIN . ' . 
151 .41000) 

GO  TO  105 
120  CONTINUE 

WRITE(LSAV’NCELL)  REP 
00  TO  140 
130  CALL  SPACE!  1 ) 

WRITE! NOM .575  ) NREP 

575  FORMAT! ’YOU  DID  NOT  ENTER  ’.II.’  REPLICATIONS.  RE-ENTER  LINE.’) 
CALL  FETCH! TEXT .MC ) 

CALL  OROPLY! TEXT .MC  ) 

00  TO  105 
140  CALL  OBKSP! 1 ) 

WRITE (NOM. 570)  l LTXT ( KOUT ) .K0UT  = 1 .3 ) . ( TEXT ( JOUT ) . JOUT= 1 .15) 

570  FORMAT ( 3A4 . 1 X » 1 5A4  ) 

CALL  FETCH! TEXT .MC ) 

CALL  OROPLY! TEXT. MC. 41000) 

CALL  SPACE! I ) 

GO  TO  50 

500  L0W=1 

501  CALL  OROPLY!  ’ DEPRESS ’ . 1 2 .4 1 000  ) 

CALL  OROPLY!'  KEY  1 TO  CONTINUE  WITH  THE  ANALYS I S ’ . 45  . 

141000) 

CALL  OROPLY!’  KEY  3 TO  REPLACE  DATA ’ .31 .41000) 

CALL  OROPLY!  'OEPRESS  KEY  20  TO  PAGE  BACKWARD .' .32 .41 000  ) 

CALL  OROPLY!  'DEPRESS  KEY  29  TO  PACE  FORWARD •’ .31  .4 1 000 ) 

CALL  MASKIT!  1 1 ) 

CALL  SPACE! 1 ) 

WRITE! NOM. 540)  ( INHEAO! KOUT  ) .NAME! 2»K0UT-1 ) .NAME! 2»K0UT ) .KOU T=  1 . 
INF) 

CALL  FETCH! TEXT .MC  ) 

CALL  OROPLY! TEXT. MC) 

CALL  SPACE! 1 ) 


t 
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WRITE! NDH. 545)  ( ABCO! KOUT) .KOUT=I .NF) 

CALL  FETCH! TEXT .MC ) 

CALL  OROPLY(TEXT.MC. 41000) 

CALL  SPACE! 1 ) 

545  FORMAT! ’CELL  * .4! IX  .A1  ) ) 

DO  107  KBL  = 1 .4 
LTXT! KBL )=LBLNK 
107  CONTINUE 
JHI=L0W+35 
JHI=niNO( JHI .NFO) 

00  600  J=LOW.JHI 

CALL  ANAL! J . IX! 1 ) . IX! 2 ) . I X! 3 ) . IX! 4 1 ) 

WRITE! NDM.  560)  J . ( IX! KOUT ) ,K0UT=1 .NF) 

CALL  FETCH! LTXT .MC ) 

REAO(LSAV’J)  REP 

WRITE! NDM, 572)(LTXT!K0UT).KOUT=1  .3 ) . ! REP!  JOUT  ) . J0UT=1  .NREP  ) 

572  FORMAT ! 3A4 .601 0 • 4 ) 

580  FORMAT! 18A4) 

CALL  FETCH! TEXT ,MC ) 

CALL  ORDPLY! TEXT. MC. 41000) 

600  CONTINUE 

CALL  TWA  I T ( 1 .0.0.0) 

CALL  OERAStlOO) 

IFiKEY.EQ.l  ) 00  TO  900 
IF! KEY -Efl  .3  ) 00  TO  55 
IFIKEY.E0.28)  LOWzMAXO! 1 .LOW-36  ) 

IFIKEY.E0.29)  L0W=L0W«-36 
I F ( LOW .CT .NFO)  L0W=L0W-36 
00  TO  501 

900  CALL  OERAStlOO) 

CALL  MASKIT! 1 I 
CALL  SPACE! 1 ) 

CALL  ORDPLY! ’DEPRESS  KEY  1 TO  DELETE  EACH  SINOLE  DECREE  OF  FREEDOM 
1 F LESS  THAN  1 .0’ .69.41000) 

CALL  ORDPLY! 'OEPRESS  KEY  2 TO  RETAIN  ALL  F VALUES ' .36 . 4 1 000 ) 

CALL  TWA  IT! 1 .0.0.0) 

FA=1  .0 

IF! KEY .EQ  .2  ) FA=0. 

CALL  OERAS! 100) 

CALL  ORRLSE 
0SS0=0. 

DO  910  K=1 .NFO 
DAT ( K )=0  . 

READ(LSAV’K)  REP 
DO  920  J=1 .NREP 
DAT(K)=DAT(K)+REP(J) 

0SSQ=0SSQ+REPIJ)»REP(J) 

920  CONTINUE 
910  CONTINUE 
RETURN 

1000  HR  I TE ( 6 .530  ) 

530  FORMAT!  '1SCREEN  FULL  BUD’) 

CALL  ORRLSE 

RETURN 

ENO 
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SUBROUTINE  YATES 

DOUBLE  PRECISION  DSSQ .OER .OSET .DA .DB .DC 
COMMON  /DIRAC/  IREC . JPOINT .NDM .L6AV 
COMMON  /YATDAT/  DSSOm.DER(l). 

3 LVL(4).NFG.IRAM.DAT(256.1 ).NEN0(4.4).TTL(20).VNAM(2.1  ).FNA 

1M(2>4) . FMT l 80  ) . I C00( 1).IL(6).  NIN .NOUT .NDX .NFAC  .NVBL 

2.NREP.RAW14.4.1 ).NR(256).FA.FB.N011256).IV.NH 
COMMON  /BAKDAT/  A( 256 1 .VSEl 1 ) .SSI  256 ) .NER .SSE .SSER .NERR 
DIMENSION  SQA164) .SETUP! 38) . ISETC 38  1 
EQUIVALENCE  (SETUP. ISET) 

KPO  = 0 

IFINREP.EQ.l)  GO  TO  10 

DO  2 J=1  .NVBL 

DA  = O.DO 

DSET  = O-DO 

DO  1 1 = 1.  NFG 

DB  = DAT ( I .J) 

DA  = DA  t DBn-2 

1 OSET  = OSET  ♦ DB 
OB  = NREP 

DERI J ) = DSSQ(J)  - DA/DB 
DA  = ( NREP-1  )«NFG 
VSE(J)  = OER( J I/OA 

2 CONTINUE 

81  FORMAT  (I3.8F8.3) 

10  DO  201  NC=1  .NFG 

CALL  ANAL(NC . IL( II , IL( 2 ) . IL( 3 ) . IL( 4 J ) 

NO  = 1 

DO  202  JJ=1 .NFAC 

IFl ILlJJI.EQ.l ) ND  = ND-LVLIJJl 

202  CONTINUE 

ND  = ND-NREP 
NDl(NC)  = ND 
NO  = 1 

00  203  JK  = 1 .NFAC 
IFl IL( JK1.EQ.4)  ND  = ND»20 
IFILVLl JK)-3)  204.204.206 
204  IF( IL( JK)  .EQ.2)  ND  = N0«2 
IFl ILl JK)  .EQ.31  ND  = ND«6 
GO  TO  203 

206  IFl ILl JK)  .EQ.2)  ND  = N0«20 
IFl  ILl  JK  ) .EQ  .3 ) NO  = NDM 

203  CONTINUE 

NDl(NC)  = NDllNOaND 
201  CONTINUE 

DO  200  I M= 1 .NVBL 
KPO  = 0 
IV  = IN 

DO  105  IU=1 .NFAC 
ISX  = NFG/LVLIIU) 

LV  = LVLl IU) 

KDK  = 1 

DO  15  JA=1.ISX 
15  A(JA)  = 0. 
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DO  16  MV  = 1 .ISX 
DO  16  JB=1.LV 

fl  ( MV  ) = fl(MV)  ♦ OATIKDK.IV) 

16  KOK  = KDK+1 
KDK  = 1 

GO  TO  l 12. 12. 13. 141.LV 

12  JBfl  = ISX  + 1 
JBB  = 2mISX 

DO  22  JBX  = JBfl. JBB 

fl(JBX)  = DAT ( KDK* 1 . 1 V 1 - DAT(KOK.IV) 

22  KDK  = KDK  + 2 
GO  TO  100 

13  JBfl  = TSXf 1 
JBB  = 2aISX 

DO  32  JBY  = JBfl. JBB 

AIJBY)  = DAT ( KDK+2 , 1 V 1 - DAT ( KDK . I V 1 

32  KDK  = KDK+3 
KDK  = 1 

JBfl  = 2-ISX  * 1 

[ s JBB  = 3«ISX 

DO  33  JBZ  = JBfl. JBB 

fl(JBZ)  = DflT(K0K+2.IV)+0ATIK0K.IV)-2.a0flT(KDK+l.IV) 

33  KDK  = KDK  ♦ 3 

GO  TO  100 

14  JBfl  = ISX  ♦ 1 

JBB  = 2«I8X 

KDK  = 1 

DO  42  JBP  = JBfl. JBB 

A(  JBP)  = 3 •■(DAT  ( KDK+3 . IV )-OAT(  KDK . I V 1 )+DflTl  KDK +-2  .IVl-DflTlKDK+1  .IV 
1 1 

42  KDK  = KDK  + 4 

KDK  = 1 

JBfl  = 2aISX+l 

JBB  = 3a ISX 

DO  43  JBQ  = JBfl. JBB 

fl(  JBQ)  =OflT(KOK,IV)-DAT(KDK+l  ,IV)-DAT(  KOK +2 . I V )+DflT( KOK+3 . 1 V 1 

43  KDK  = KOK+4 

JBfl  = 3aISX+l 

JBB  = 4aISX 

KDK  = 1 

DO  44  JBS=JBA .JBB 

fl( JBS 1=3  .a( DAT (KDK  + 1 . 1 V l-DflT( KDK+2 . 1 V ))+DflT(KDK +3, IV)- OATIKDK.IV) 

44  KDK  = KDK+4 

1 . 100  DO  107  JBT=1 ,NFG 

107  DflT(JBT.IV)  = fl(JBT) 

105  CONTINUE 

DO  110  KA=1.NF0 
AD  = NOl(Kfl) 
flJKfl)  = DAT ( Kfl .IV 1/flD 
NRIKfl)  0 

110  6SI Kfl  ’ = DflT(Kfl.IVlaa2/flD 
C flNOVfl  TABLE 

J KBE  = 2aaNFflC  - 1 

DO  114  KB=1 .KBE 


t 

i 
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6QA! KB  1 = 0. 

SGAL  = 0. 

DO  115  KC=1.NFG 

CALL  ANALIKC.IL! 1) . IL( 2 1 . IL( 3 1 . IL(  4 1) 

KDA  = 0 

DO  116  K0=1 .NFAC 
KDA  = 2»KDA 
KDX  = NFAC-KD+1 
IFlIL(KDX).GT.l)  K0A=KDA*1 
116  CONTINUE 

IF(KOA.EQ.O)  00  TO  115 
NR(KDA)  = NR ( KDA  1 ♦ 1 
SQAL  = SQAL  + SS(KC) 

SQACKDA)  = SQA(KOA)  ♦ SS(KC) 

115  CONTINUE 
IRET  = 1 
125  CONTINUE 

GO  TO  (119.121 1 .IRET 

119  DO  120  KG=1 .NFAC 

NR ( KG+65 1 = LVL(KG) 

120  LVL(KG)  = 2 
KH  = 1 

127  CALL  ANAL! KH+1 .IL( 1 ) .IL(2) .IL(3).IL(4) ) 

IX  = 0 

00  122  K 1=1 .NFAC 
IFlIL(KI)-l)  122.122.124 
124  IX=IX+1 

I8ETC IX  ) = K I 
122  CONTINUE 
1X2  = 2 ■ I X 
00  118  KL=1 • IX 
KA=ISET‘KL) 

SETUP!  <:«iKL+6 ) = FNAM(l.KA) 

118  6ETUP( 2»KL+7 1 = FNAMI2.KA) 

AOF=NR( KH  1 
V6h=SQA( KH l/ADF 
FF=0  • 

IF( VSE( IV)  .LE.0. 1 00  TO  128 

FF=VSH/V8E( I V 1 
128  KHB=IX2  ♦ 7 

WRITE! NOUT ' I REC. 339 )( SETUP! KH) .KH=8 .KHB ) 
339  FORHAT! 1H0.2A4 . 1H* .5( 2A4 . 1H«  1) 

WRITEtNOUT  ’IREC.341)  NR! KH ) .SQA! KH ) . V6H .FF 
341  FORMAT! 1H  . 1 3 . 1 X .2012 .6 .012 .4 1 
KPG  = KPG+3 
IRET  = 2 

IFfKPO.OT -45)  KPG=0 
IF(KPO.EO.O)  00  TO  125 

121  KH=KH+1 
IF(KH.LE.KBE)  GO  TO  127 
DO  828  KN=1 .NFAC 

828  LVL(KN)  = NR ! KN+65 ) 

IFtNREP.EQ.l ) 00  TO  1166 

NER  = (NREP-1  )«NFO 
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1166  NALL  = NFG-1 

VSH  = SQRL/FLOAT ( Nfli  L) 

FF  a 0 . 

IF! VSE!  IV  1 -EQ -0-1  GO  TO  151 
FF  = V6H/V6E! IV) 

2013  FORMAT l 55X  ) 

HRITE!N0UT’IREC.2013) 

HRITE(N0UT'IREC.2013) 

151  HRITEINOUT ’IREC.350) 

350  FORMAT ( 1H  .19X.UHRLL  EFFECTS. 22X) 
HRITEINOUT  ’I REC.341  ) NALL  .SQAL .VSH .FF 
HRITEINOUT'IREC.2013) 

HRI TE ( NOUT  ’ I REC  .201 3 1 
HRITEINOUT'IREC.351  ) 

351  FORMAT! 1H  .22X  .5HERRCR.25X  ) 

SSE  = DERI  IV) 

IFINREP.EQ.l  ) SSE  = VSE! I V )»FLOAT ( NER ) 
HRITEINOUT'I REC. 3411  ) NER.SSE.VSEI IV) 
3411  FORMAT  1 1H  . 1 3 . 1 X .2G1 2 .6 . 1 2X ) 

HRITEINOUT  'IREC.  1000) 

1000  FORMAT! * LAST’) 

SSER  = SSE 
NERR  = NER 
00  162  KP=1.NFG 

IFISSIKPJ/VSEl IV) .GE.FA)  GO  TO  162 
A I KP ) = 0. 

SSE  = SSE  + SSIKP ) 

NER  = NER  ♦ 1 
162  CONTINUE 
IREC=70 
REHIND  NH 

HRITEINH)  A.SS.SSE.NER.V6E 
200  CONTINUE 
99  REHINO  NH 
RETURN 

1313  FORMAT!  ‘ LAST* ) 

END 


s 


4 


1 
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SUBROUTINE  SACK 

DOUBLE  PRECISION  DSSQ .DER .DSET .DA .DB 

COMMON  /DIRAC/  IREC 

COMMON  /YATDAT/  OSSQt 1 1 .DERI  1 ) . 

3 LVL( 4 ). NFG. IRAN. OAT! 256.1 ) .NEND!  4 .4  ) ,TTL(  20 ) .VNAHI 2 . 1 ) .ENA 

1M(2.4).FMT(80).IC0D( 1 ) . 1L( 6 ) . NIN.NOUT.NDX.NFAC.NVBL 

2 .NREP .RAW! 4.4.1) ,NR( 256 ) .FA .FB .ND1 ( 256 ) . I V .NH .COEF( 4 .6 ) . ASAV ( 5 1 2 ) 
COMMON  /BAKDAT/  A(256).VSE  .SS( 256  ) .NER .SSE .SSER .NERR 
DIMENSION  SETUP! 45  ) . ISET ( 45 ) .CC( 6 ) .CEX( 3 ) .SCAL( 20 ) . 

1FMG! 40) .AR( 6) .CMP (3) .ANI5) . BN( 5 ) . CONV ( 6 . 4 ) 

DIMENSION  BLANK! 50 ) 

EQUIVALENCE  (SETUP. ISET) 

DATA  FILL/4H  2X./ 

DATA  CC  /2h"A.2H"B.2H"C.2H"0.2h"E.2H"F/ 

DATA  CEX  / 4H""2  .4H""3  .4H""4  / 

DATA  BL/4H  / 

DATA  FMG! 1 )/4H( 1H0/ 

DATA  PLS/4H1H+ ./ 

DATA  EA.EB/4H  G1.4H4.7./ 

DATA  BLANK/50"’  V 
OATA  FARG/4H  A3./ 

DATA  FARG1/4H50A1/ 

OATA  FARG2/4H  )/ 

OATA  ARG/4H  A2./ 

DATA  ARGP/4H  A4./ 

DATA  AR/4HARAH .4HBRAW . 4HCRAW .4HDRAW.4HERAW.4HFRAW/ 

IREC=70 
KPO  = 1 
DO  1 1 = 1 .NFG 
1 DAT ( I . I V ) = All) 

VSE  = SSE/FLOAT! NER ) 

IrlSSE.LT.l  -E-7)  SSE  = 0. 

VSE  = SSE/FLOAT(NER) 

IFtSSE.GT.O. ) GO  TO  369 
RMS  = 0. 

RM8M  = 0. 

GO  TO  379 

^ 369  ANT  = NFG-NREP 

ADD  = 1 • ♦ 1 ./ANT 
RMS  = 2 ."SORT! VSE" ADD ) 

DO  341  1 = 1 .NFG 

I F<  A ( I J.EQ.O.)  GO  TO  341 

CALL  ANAL! I . IL( 1 ) . IL( 2 ) . I LI  3 ) . IL( 4 ) ) 

NF  = 1 

DO  342  IC=1.NFAC 
IF! I L ( IC) .EQ.4)  NF  = NF"9 
342  CONTINUE 
ANF  = NF 
AO  = NDl! I ) 

ADO  = ADD  ♦ ANF/AD 
341  CONTINUE 

RMSM  = 2 ."SORT! VSE"AOO ) 

379  CONTINUE 

00  105  IU=1 .NFAC 
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r 


f 

v 


ISX  = NFG/LVL1IU) 
LV  = LVL(IU) 

KDK  = 1 

DO  15  JA=1  .ISX 


15 


12 

16 


22 

13 

31 


32 


33 

14 

41 


Al JA1=0. 

JBfl  = ISX  + 1 
J0B  = 2-I6X 
JEA  = JBB+ 1 
JEB  = 3«ISX 
JFA  = JEB+1 
JFB  = 4«I8X 

GO  TO  (12. 12. 13. 141.LV 

DO  16  JB=1 . 1 SX 

fll JB  1 = OflT(KDK.IV) 

KDK  = KDK+2 
KDK  = 1 

DO  22  JC=JBA • JBB 
fll  JC)  = DAT  1 KDK-*- 1 .IV) 

KDK=KDK+2 
GO  TO  100 
DO  31  JD=1  .ISX 

fll JO  1 = DAT(K0K.IV)-2."DAT(KDK+2.IV) 

KDK  = KDK+3 

KDK=1 

DO  32  JE=JBA . JBB 
fll JE  1 = DAT1K0K+1  .IV) 

KDK  = KDK+3 
K0K=1 

DO  33  JF=JEA.JEB 

fll JF  1 = 3 •■OflT 1 KDK+2 , 1 V ) 

KOK  = KDK  + 3 
GO  TO  100 
DO  41  JG=1 .ISX 

fl(JO)  = DAT! KOK , IV 1- 1 .25«0flT 1 KDK+2 . IV ) 

KDK  = KOK  + 4 

KDK=1 


DO  42  Jh= JBfl. JBB 

fll JH)=(0AT(K0K+1 .IV 1-41 .»DAT (KDK  + 3. IV 1/12.  )n3. 

42  K0K=K0K+4 
KOKrl 

DO  43  JI=JEfl.JEB 

fll JI  1=2 .25«DAT( KDK+2  » I V 1 

43  KDK=KDK+4 
KDK  = 1 

DO  44  JK=JFfl.JFB 

fll JK 1=45 •■DAT (K0K+3.IV1/4. 

44  K0K=K0K+4 

100  DO  107  Jf1=l.NFG 
107  DAT  1 JM , I V )=A1 JM 1 
105  CONTINUE 

DO  509  JJPB=1  ,NFG 
flSflVl JJPB)=fl( JJPB) 

509  CONTINUE 
KPG  = 0 


t 

1 


S 


P 


273 

IRET  = 1 

HRITEINOUT  'IREC. 82)  ! CC! JA ) .FNAH! 1 . JA ) .FNflm 2 . JA ) . Jfl= 1 .NFAC  1 
02  FORMAT! 1H0.20X.6HFACT0R. A3. 4H  IS .2X .204/ ( 21X .6HFACTCR .fl3 . 4h  IS 
12X  .204 ) 1 

IF(NER.Efl.O)  00  TO  1081 
VSSE  = SSE/FLOATINER) 

1001  HRITE(NOUT' IREC .2013  ) 

2013  FORMAT ( 72X  ) 

WRITE! NOUT  'IREC. 83) 

83  FORMAT ( 1H0.10X.30HIN  STANOARD  FACTOR  VALUES.  Y = ) 

DO  203  JR=1 ,45 
203  SETUP! JAJ  = 8L 
00  230  JHA=2 . 40 
230  FMG(JAA)  = BL 
KOL  = 2 
KDK  = 1 
LCT  = 0 

GO  TO  (501. 502). IRET 
501  DO  201  KH=1.NFG 

CALL  ANAL! KH . IL( 1 ) . IL( 2 ) . IL( 3 ) . I L( 4 )) 

DO  202  KG=1 .6 
202  IL(KG)  = IL(KG)  -1 

IF(ABS!A(KH)).LE.l.E-5)  GO  TO  2201 
FMGIKDL)  = FILL 
KOL  = KOL  ♦ 1 
SETUP! KOK )=A! KH ) 

IFIA(KH))  221.201.222 
222  FMG(KDL)=PLS 
KDL=KDL+1 
221  FMG! KDL )=EA 
KDL  = KOL  ♦ 1 
FMG! KOL)  = EB 
KDL=KDL+1 
KDK=KDK+1 
LCT=LCT+15 
DO  210  MA=1.NFAC 
IFlIL(MA)-l)  210.212.213 

212  SETUP! KOK  ) = CCIMA) 

FMG! KDL)  = ARG 

KDL  = KOL+1 
KOK  = KOK  ♦ 1 
LCT  = LCT  ♦ 2 
GO  TO  210 

213  SETUP! KDK ) = CCIMA) 

FMG! KDL)  = ARG 
KDL=KDL*1 

MB=IL( MA )-l 
KDK=KOK+ 1 

SETUP! KDK  ) s CEX  (MB) 

FMG! KOL)  = ARGP 
KOL  = KDL+1 
LCT  = LCW6 
KDK=KDK+1 
210  CONTINUE 
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2201  IFILCT.LE.30  -AND.  Kh.LT.NFG)  00  TO  201 
IFIKDL.LE.4  .OR.  K0K.LE.2)  00  TO  201 
KDL=KDL-1 
FMGIKDL)  = FARO 
FMGl  KOL-*-l  )=FARG1 
Ff1G(  KOL+2  )=FAR02 
JJPBUP=K0L+2 

HR  I TE( 6 . 1323 ) ( FMGl JJPB 1 . JJPB=1 . JJPBUP 1 
1323  FORMAT { 10X .40A4  1 
MPAT=68-LCT 
K0K=KDK-1 

HRI TE( HOUT ’ IREC .FMGl  ( SETUP! MO  ) ,M0=1 .KOK 1 . 

1 ( BLANK ( KPAT 1 .KPAT=1 .MPAT) 

KPG=KPG* 1 

1F1KPG.GT .45)  KPG=0 

KPG  = 1 

KDK=1 

LCT=0 

KOL  = 2 

00  218  ME=2  . 40 
218  FMG(ME)  = BL 
201  CONTINUE 
502  IFL=0 

DO  505  I PAT = 1 .4 
00  505  JPAT=1 .6 
CONV ( JPAT . I PAT  1=0 • 

505  CONTINUE 

HRI TE( NOUT  ' IREC  .201 3 ) 

00  1301  1=1 .NFAC 

LV=LVL( 1 1 

IFtRAHl 1 .1  .IVl.Efl.O  -AND.  RAH( 1 .2 . 1 V 1 .EQ  .0 ) GO  TO  301 
IFL=1 

SETUP!  1 1 = ccm 

GO  TO  1302. 302. 303. 3041.LV 

302  SETUP! 2 1 = 2 ./( RAH! 1 .2 . 1 V l-RAH! 1 . 1 . 1 V 1) 

IF ( ABS! SETUP! 2 1 1 .LT  «5  .E-S 1 8ETUP(2)  = 0. 

SETUP! 4 1 = -SETUP! 2 )«RAH( 1 . 1 .IV 1 - 1. 

CONV! 1.11=  SETUP ! 2 1 

* CONV (1,2)  = SETUP! 4 1 

SETUP! 3 1 = AR(I) 

HRITE! NOUT 'IREC. 92)  t SETUP! IB).IB=1 .41 
92  FORMAT! 1H0.5X.5HHHERE. A3. 3H  =.  G14.7.3H  > .A4.5H  ♦ l . 

1 D14.7.IM1.11X) 

KPG  = KPG  + 2 
GO  TO  301 

303  HI=RAH ! 1 .3 . 1 V ) 

AM=RAH( 1 .2. IV) 

AL=RflH( I » 1 $ I V ) 

BE  T= ( 2 .»AM-HI-AL )/ ( ( AM-AL )»( HI -AL  )■( HI-AM ) ) 

ALF  = 2 ./! HI-AL ) 

SETUP! 2 ) = BET 
SETUP! 3 )=AR( I ) 

SETUP!  4 ) = ALF  - BET«l  Hl+AL ) 


SETUP C 6 ) = H I ■f)L«BET  - 1.  -AL-ALF 
IF(ABS(SETUP(2)) .LT.5.E-5)  SETUPI2)  = 0. 

IFIABS (SETUP (4)). LT  .5-E-5)  SETUP! 4 ) = 0. 

IF!ABS(SETUP!6)) -LT.5.E-5)  SETUP(6)  = 0. 

CONV(I.l)  = SETUP! 2 ) 

CONVd.2)  = SETUP!  4 1 
C0NVU.3J  = SETUP!  6 ) 

WRITEINOUT'IREC.93)  ( SETUP! I C ) . IC=1 .6) 

93  FORMAT! 1H0.5X.5HHHERE. A3. 3H  =.  014. 7. 3M  ■ .A4.8H*«2  ♦ ! . 

1 01 4 .7 ,3H )■  .A4.2X/1H  ,5H  ♦ !.  01 4 .7 . 1 H 1 . 48X ) 

KPO  = KP0+2 
00  TO  301 

304  VLO=RAW! I .1  .IV) 

AL0=RAW( 1 .2 . 1 V ) 

AHI=RAW! 1 ,3.1V) 

VhI=RAM! I .4  . IV  ) 

QA=2 ./ ( ALO-VLO  )/3  . 

QB=4./(AHl-VL0)/3. 

QC=2 ./( VHI-VLO ) 

QB=(Q8  QA )/( AHI-ALO ) 

QC=(QC-9A)/( VHI-ALO) 

9C=( QC-OB  )/( VHI-AHI  ) 

AN! 1 ) s QC 
AN! 2 ) = QB 
AN! 3 ) = QA 
AN! 4 ) = -1. 

CMP! 1 ) = VLO 
CMP! 2 )=ALO 
CMP! 3 ) = AHI 

CALL  DWMULT  ( AN .3 .CMP .BN ) 

00  324  MG=1 .4 
SETUP!  2»MG-*1 ) = AR(I) 

SETUP! 2*MG)  = BN! MO) 

IFIABS! SETUP! 2« MG) ) .LT .5 .E-5 ) SETUP! 2«MG)=0 . 

324  CONV(I.MO)  = SETUP(2«MG) 

WRITE! NOUT  ' IREC .94  ) ! SETUP! MH ) ,MH=1 .8) 

94  FORMAT! 1H0.2X.5HWHERE. A3. 3H  =.  014-7.3H  ■ .A4.8H»«3  ♦ ! . 

1 014-7.3H)*  .A4 . 4H»»2  .1X/4H  ♦(  . 014.7  ,3H)«  .A4.5H  + (.  014-7 

2 . 1 H ) .24X1 
KPO  r KPO+2 

301  IFIKPO.GT.48)  KPO=0 
KPO  = KPO  «■  1 
1301  CONTINUE 

00  507  IPAT=1 ,4 
00  507  JPAT=1 .6 

COEF ( IPAT.JPAT)=CONVt JPAT.IPAT) 

507  CONTINUE 

WRITE (NOUT* IREC.  191  ) RMS .VNAM! 1 . IV ) .VNAM! 2 . 1 V ) 

191  FORMAT! 1H0.5X.33HMINIMUM  TWO  6I0MA  ERROR  IS  ♦ OR  - .F15 .5 .2X .2A4  . 
15X ) 

WRITE! NOUT’ IREC.  193)  RMSM.VNAM! 1 . 1 V ) . VNAM! 2 . 1 V ) 

193  FORMAT! 1H0.5X.33HMAXIMUM  TWO  SIOMA  ERROR  IS  * OR  - .FI 5 -5 .2X .2A4  . 
15X ) 

WRITEINOUT’ IREC, 1313) 
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SUBROUTINE  PAGIT(».».«) 

EXTERNAL  EOBINT 

DOUBLE  PRECISION  DSSQ .DER . DUMMY 
DIMENSION  TEXT ( 20 ) .8US( 20  ) 

DIMENSION  LTXT ( 20  ) . I X ( 4 ) 

DIMENSION  HEAD1 ( 5 ) .HEAD2! 2 ) . HEAD3! 3 ) .HEA04! 3 ) 

OIMENSION  INHEAD!  4 ) . ABCD! 4 ) 

COMMON  /BAKDAT/  A(256).VSE  .SSI  256 ) .NER.SSE.SSER.NERR 
COMMON  /YATDAT/  DSSQ. DER. 

3LVL! 4) .NFG.IRAW.DAT! 256) .NEND! 4.4  ).TTL! 20) . 

1 VNAM ( 2 ) .NAME ( 8 ) .FMT  t 80 ) • I CODE . I L ( 6 ) .NIN.NOUT  .NDX.NF  . 

2NVBL . NREP . CONCOM! 4.4) .NR( 256 ) .FA .FB .NO  1 ! 256  ) . I V .NW 
COMMON  KEY 

COMMON  /DIRAC/  IREC . JPOINT .NDM .LSAV 

OATA  HEADl/’SOUR’.'CE  O’.’F  VA ' . 'R I AT ’ . ’ I ON  V 

DATA  HEAD2/ * SU’.  'M  OF  V 

DATA  HEAD3/’  60 ’ . ’UARE ’ . ’S  V 

DATA  HEAD4/ ’MEAN’ . ’ SOU*. ’ARES*/ 

DATA  HEADS/’  F ’/ 

DATA  INHEAD/ ’A  = ’.’B  =’.’C  =’.’D  =’/ 

DATA  ABCD/’A’.’B’.’C’.’D’/ 

DATA  BLANK/  ’ V 
OATA  LBlNK  /’  V 
DATA  HEAD6/  ’ OF  ’/ 

DATA  TLAST/ ’LAST  V 
NC-72 

CALL  GRINITt  ’B’  ) 

CALL  GCEOBt  EOBINT ) 

IREC=1 

IPAGE=1 

KEY=] 

1 CALL  NEWPGE 
CALL  MASK  I T ( 12) 

CALL  STUFF  12.'  OPTION  TABLE 

1 ’ ) 

CALL  STUFFU.  ’DEPRESS  KEY  1 FOR  ANALYSIS  OF  VARIANCE 
1 ’ ) 

CALL  STUFF ( 6 . ’OEPRESS  KEY  2 FOR  RESPONSE  EQUATION 
1 ’ ) 

CALL  STUFFtB. ’DEPRESS  KEY  3 FOR  SINGLE  DEGREE  OF  FREEDOM  SUMS  OF  S 
1QUARES  ’) 

CALL  STUFF! 10. 'DEPRESS  KEY  4 TO  PLOT  RESPONSE  SURFACE 
1 ’ ) 

CALL  STUFF!  12. ’DEPRESS  KEY  5 TO  EDIT  RAW  DATA 
1 ’ ) 

CALL  SNAP 

CALL  TWA  I T ( 1 .0.0.0) 

IHHERE=KEY 

GO  TO  115.100.300.200.601  ). I WHERE 
IS  CALL  NEWPGE 
IREC=1 

CALL  MASK  IT! 13) 

CALL  STUFFMI  . 'DEPRESS  KEY  1 FOR  SUMS  OF  SQUARES. 

I ’) 
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CALL  STUFFI42. ’DEPRESS  KEY  2 FOR  MEAN  SQUARES. 

1 M 

CALL  STUFF! 43. ’OEPRESS  KEY  3 FOR  F VALUES. 

1 ’) 

CALL  STUFF! 45 . ’DEPRESS  KEY  30  TO  VIEW  OPTION  TABLE 
1 ’) 

JKEY-KEY 

I F ( JKEY .OT .3 ) JKEY=1 

CALL  STUFF ( 2 . ’ ANALYSIS  OF  VARIANCE 

1 ’) 

DO  6 u5L-l  • i 7 
TEXT l J6L )=BLANK 

6 CONTINUE 

DO  7 JSR=1  .5 

TEXT!  JSR  + 4 )=HEAD1 ( JSR ) 

7 CONTINUE 

TEXT ( 1 4 )=HEAD6 
GO  TO  I 17.18.19)  .JKEY 

17  TEXT  I 1 5 )=HEA03( 1 1 
TEXT l 1 6 ) = MEAD3( 2 1 
TEXT ( 1 7 )=HEAD3( 3 ) 

CALL  STUFF ( 4 . TEXT  ) 

DO  16  KSR  = 1 .17 
TEXT ( KSR 1 =BLANK 

16  CONTINUE 

TEXT ( 15 )=hEAD2( 1 ) 

TEXT! 16 )=HEAD2( 2 1 
CALL  STUFF ( 3 . TEXT  ) 

GO  TO  9 

18  TEXT! 15)  = MEAD4C  1 ) 

TEXT! 16)=HEAD4(2) 

TEXT! 17)=HEAD4!3) 

CALL  STUFFl 4. TEXT  ) 

GO  TO  9 

19  TEXT! 16)=hEPD5 
CALL  STUFF ( 4 .TEXT  ) 

9 CONTINUE 
LNCK=0 

DO  10  LINE=5 .36 
LNSV=LINE 

READ ( NOUT ’ I REC .1001 1 ( TEXT! I) .1  = 1 .13) 

LNCK=LNCKtl 

IF! TEXT! 1 ) .EQ.TLAST  ) GO  TO  30 
READ! NOUT* IREC. 2000) (BUS! J),J=1 .10) 

LNCK=LNCK+ 1 
TEXTlUUBUSll) 

IWR=3»JKEY-1 
TEXT! 1 5 ) =8US( I HR  J 
TEXT! 16)  = BUS! IWR+1  ) 

TEXT! 17)=BUS( IHR*2) 

CALL  STUFF (LINE  .TEXT  ) 

10  CONTINUE 
30  CALL  SNAP 

CALL  TWA  IT! 1 .0.0.0) 
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I REC=  I REC-LNCK 
IF1KEY.EQ.30)  00  TO  1 
IFIKEY.LE.3)  00  TO  15 
CO  TO  15 
100  1 REC=70 
1)0  CALL  NEHPGE 

CALL  MASK  1 T ( 14 1 
CALL  STUFF (42. 'DEPRESS 
1 *1 

CALL  STUFF! 43. 'DEPRESS 
1 ’) 

CALL  STUFF! 45. 'DEPRESS 
1 ’) 


KEY 

ro 

CD 

TO 

PAOE 

BACKWARO. 

KEY 

29 

TO 

PAGE 

FORWARD. 

KEY 

30 

TO 

VIEW 

OPTION  TABLE 

DO  120  L I NE= 1 .40 
KEEP=L I NE 

REAOINOUT  'IREC.3000H  TEXT! 11.1  = 1.171 
IF! TEXT! 1 1 .EQ  .TLAST  1 GO  TO  130 


KCHK=LiNE 


CALL  STUFFILINE .TEXT  1 
120  CONTINUE 
130  CALL  SNAP 

CALL  THAI T ( 1 .0.0.0) 

IFIKEY.EQ.30)  00  TO  1 

IFtKEY .EQ.28)IREC=IREC-KEEP-40 

IFtKEY. EQ.29.AN0.KCmK.LT .40)  IREC=IREC-KEEP 

IF! IREC.LT .70)IREC=70 

00  TO  110 


300  LOW= 1 

310  CALL  OERAS! 100) 

CALL  MASKIT! 15) 

CALL  SPACE! 1 ) 

REWIND  NW 

REAOINW)  A.SS.SSE.NER.VSE 

CALL  OROPLY! ' SINGLE  OEOREE  OF  FREEDOM  DISPLAY' 

1 .52.41000) 

CALL  SPACE! 1 ) 

CALL  OROPLY!  'DEPRESS  KEY  1 TO  DELETE  TERMS  BY  CELL  NUMBER'.44. 


U1000) 

CALL  OROPLY!  'DEPRESS  KEY  2 TO  DELETE  TERMS  BY  F COMPARISON '. 45 . 
U1000) 

CALL  OROPLY!  'DEPRESS  KEY  28  TO  PAGE  BACKWARD  * .3 1 .41 000  ) 

CALL  ORDPLY! 'DEPRESS  KEY  29  TO  PAGE  FORWARD ' .30 .41000 ) 

CALL  SPACE! 1 ) 

CALL  OROPLY! 'DEPRESS  KEY  30  TO  VIEW  OPTION  TABLE ' .35 . 41 000 ) 

CALL  SPACE! 1 ) 

WRITE! NDM.560 ) VSE 
560  FORMAT!  ' MSE  = ' .015.8) 

CALL  FETCH! TEXT .MC ) 

CALL  ORDPLYtTEXT.MC. 41000) 

CALL  SPACE ( 1 ) 

WR I TE(NDM.540)( INHEAD (KOUT) .NAME! 2»K0UT-1 ) .NAME! 2-KOUT ) ,K0UT  = 1 ,NF  ) 
CALL  FETCH! TEXT. MC) 

CALL  OROPLY! TEXT. MC. 41000) 

CALL  SPACE! 1 ) 


I 

i 


* 


\ 
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FORMAT! 4( 3A4 .4X  ) ) 

WRITE! NDM. 545)  ( ABCD! KOUT ) ,K0UT=1 ,NF ) 

FORMAT!  'CELL'  .4! IX. A1 ) } 

CALL  FETCH! LTXT .MC  5 

WRITE! NDM. 550)  ( LTXT ( KOUT ) ,K0UT=1 .3) 

FORMAT! 3A 4. 4X.  ’COEFFICIENT ’ .4X. ’SUM  OF  SQUARES 4X . *F  RATIO') 

CALL  FETCH! TEXT .MC ) 

CALL  OROPLY! TEXT. MC. 41000) 

CALL  SPACE! 1 ) 

JHI=L0W*29 
JHI=MINO( JHI .NFG) 

DO  600  J=LOH.JHI 

CALL  ANAL!  J.IXU  ).IX(2).IXC3).  1X141) 

DO  1600  ISUB=1,4 
IX! I SUB ) = I X ( I SUB ) — 1 
CONTINUE 
F=SS( Jl/VSE 
LTXT ( 2 )=LBLNK 
LTXT! 3 )=LBLNK 

WRITE! NDM  .570 ) J . ( I X ( KOUT ) ,K0UT=1 .NF) 

CALL  FETCH! LTXT ,HC ) 

FORMAT! I2.2X.4I2) 

WRITE! NDM. 580) (LTXT (KOUT) ,K0UT=1 .3 ) .A! J ) ,SS( J ) .F 
FORMAT(3A4.2X.O1S.8.2X.O15.8.3X.O15.0) 

CALL  FETCH! TEXT .MC ) 

CALL  ORDPLY! TEXT. MC. 41000) 

CONTINUE 

CALL  TWAIT! 1 ,0.0.0) 

CALL  GERAS! 100) 

IFIKEY.EQ.1 ) GO  TO  400 

IF ( KEY  .EQ .2 ) GO  TO  500 

I F ( KEY  .EQ .30 ) GO  TO  1 

IF! KEY  .EQ .28 ) LOW=MAXO( 1 .LOW-30 ) 

IFIKEY.EQ.29)  LOW=L0W*3O 
IF! LOW .GT .NFG)  L0W=L0W-30 
GO  TO  310 
CALL  SPACE! 1 ) 

CALL  MASKIT! 1 ) 

CALL  GRDPLYl'IF  YOU  WISH  THE  FOLLOWING  CHANGES  TO  BE  MADE  PERMANEN 
IT.  DEPRESS  KEY  1 '.69.41000) 

CALL  GRDPLYl  'OTHERWISE.  OEPRESS  KEY  2'. 24. 41000) 

CALL  TWAIT! 1 .0.0.0) 

CALL  GERAS! 100) 

I PERM=KE Y 
CALL  SPACE! 1 ) 

CALL  GRDPLY!  'ENTER.  SEPARATED  BY  COMMAS.  THE  CELLS  FOR  WHICH  YOU  W 
1ISH  TERMS  DELETED'. 70. 41000) 

CALL  TWA  I T ! 0 .0 . 1 .0) 

CALL  GRRPLX! TEXT .NC ) 

I NDEX=0 

CALL  I NX! TEXT. INOEX .NC .DUMMY .41 100) 

KP=DUMMY+ .05 
A! KP  )=0 . 

SSE=SSE*SS(KP) 


s 


NER=NER+ 1 

1FI  INDEX. GT  .0)  GO  TO  410 
420  CONTINUE 

VSE=SSE/ FLOAT l NER  1 

IF( IPERH.EQ.2)  00  TO  305 

REMIND  NW 

WRITE! NW ) A.SS.SSE.NER.VSE 
305  CALL  ORRLSE 
RETURN  3 

500  CALL  SPACE! 1 1 
CALL  MflSKITf 1 ) 

CALL  OROPLY ('IF  YOU  WISH  THE  FOLLOWING  CHANGES  TO  BE  HADE  PERMANEN 
IT.  DEPRESS  KEY  1'. 69. 41000) 

CALL  GRDPLYI  'OTHERWISE.  DEPRESS  KEY  2’. 24. <10001 
CALL  TWAITt 1 .0,0.0) 

CALL  GERASt 1 00 1 
IPERM=KEY 
call  SPACE ( 1 ) 

CALL  GRDPLYI  'ENTER  THE  F VALUE ’. 17  .< 1 000  1 
408  CALL  TWAI T(0 .0 . 1 .0) 

CALL  GRRPLXI TEXT. NC) 

INDEX=0 

CALL  I NX ( TEXT. I NDEX .NC .DUMMY . <12001 
FArDUMMY 
DO  162  KP-l.NFG 
IFISSIKPI/VSE.GE.FA)  GO  TO  162 
A( KP  1=0  • 

SSE=SSE+SSl KP 1 
NER=NER+ 1 
162  CONTINUE 
GO  TO  420 

1000  CONTINUE 
200  CALL  ORRLSE 

RETURN  2 

1100  CALL  GROPLYl  'AN  INVALID  NUMBER  WAS  ENTERED.  TRY  AGAIN 40  .< 1 000 ) 

00  TO  409 

1200  CALL  GRDPLYI ’AN  INVALID  NUMBER  WAS  ENTERED.  TRY  AGAIN ' .40 .<) 000 1 
GO  TO  408 
601  CALL  ORRLSE 
RETURN  1 

1001  FORMAT ( 1 X . 1 3A4  1 
2000  FORMAT ( 1 X . 1 0A4  1 
3000  FORMAT ( 1 X . 1 7A4  1 

END 
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SUBROUTINE  PLOTTR(».« 

EXTERNAL  EOBINT 
COMMON  KEY 
1 CALL  GRINiTl  ’B  ’ ) 

CALL  OCEOBI EOBINT) 

CALL  MASKITl 12) 

CALL  NEHPOE 
CALL  STUFF!  2 • * 

1 * ) 

CALL  STUFF! 4 . 'OEPRESS 
1 ONE  FACTOR  ’) 

CALL  STUFF! 6.  ’DEPRESS 
INST  ONE  FACTOR  ’) 

CALL  STUFF! 8.  ’DEPRESS 
1 ’ ) 

CALL  STUFF! 10. ’DEPRESS  KEY  4 TO  EDIT  THE  RAW  DATA 
1 ’) 

CALL  STUFF! 12. 'DEPRESS  KEY  5 TO  RETURN  TO  THE  RESPONSE  EQUATION 
1 ’) 

CALL  SNAP 

CALL  THAI T ( 1 .0.0,0) 

IWHERE=KEY 
CALL  GERAS! 100) 

CALL  GRRLSE 

GO  TO  ( 10.20.30.40.50)  .INHERE 
50  RETURN  2 
40  RETURN  1 
30  CALL  CONTUR 
GO  TO  1 
20  CALL  CONF 
GO  TO  1 
10  CALL  6PL0T 
GO  TO  1 
END 


OPTION  TABLE 

KEY  1 TO  PLOT  THE  PREDICTED  RESPONSE  AGAINST 
KEY  2 TO  PLOT  A 95X  CONFIDENCE  INTERVAL  AGAI 
KEY  3 TO  PLOT  CONTOURS 


/ 


s 
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SUBROUTINE  SPLOT 
EXTERNAL  EOBINT 
DOUBLE  PRECISION  DUMMY 
OOUBLE  PRECISION  DSSQ.DER 
REAL  NAME 
COMMON  KEY 

COMMON  /YATOAT/  DSSQ.DER. 

3LVLI4) .NFG.IRAH.DAT! 256)  .NENDI4.4  ) .TTLI20) . 

1 VNAMI 2 ) .NAMEl  8 ) .FMT I 80 ) . ICOOE . I LI  6 ) . NIN .NOUT .NDX .NF  . 

2NVBL.NREP.C0NC0MI4.4) .NR(256I .FA  .FB .ND1 1 256 ) . I V .NW .COEFI 4 .6  ) . 

4 A (512) 

DIMENSION  TEXT(20).ALIST(6).PL0FAC(5).BUS(20)  .RAW VAR  I 6.4). 

1 INDVARI 6 ) .NORDRI  6).PL0TN0(2).VAL(6).PLI6T(4).C(512).IX(6) 
DIMENSION  CTEMPC  512 ) 

DATA  ALIST/  ’ 1.  2.  ’.’  3.  * . ’ 4.  ’.’  5.  ’.’  6.  V 

DATA  BLANK/’  V 

DATA  PLOFAC/  ' ««P ' . ’LOTT ' . ’ ING  ’ . ’FACT ’ . ’0R«»  ’/ 

DATA  PLOTNO/  ’PLOT  ’ . ’ NO-’/ 

DATA  PLIST/’1’.'2'.’3’.’4'/ 

1000  FORMAT ( ’PLEASE  ENTER  THE  VALUEIS)  FOR  ’.2A4.2X) 

1001  FORMAT! 2X .010.31 

1002  FORMAT ( 01 0 -3 .2X  ) 

1003  F0RMAT1 ’INCREMENT:’ .G10.3) 

1004  FORMATl ’ INCREMENT:  ’ ) 

1010  F0RMAT120X.4G10.31 

HR  I TE (6.1010)  COEF 

NS:68 

N0M:4 

CALL  INITP 
CALL  PASKITI 2 1 
CALL  EOBP( EOBINT  1 
45  CALL  PEHPGE 

CALL  GRAXESI 0 . .4095 . .80 . . 4095 ..0.4095.80. 4095 1 
DO  17  K0B:1 .6 
INDVARt  KOB ):1 
NORDRt  KOB ):KOB 
17  CONTINUE 

CALL  PSTUFFI 2 • ’ THE  FACTORS  ARE  AS  FOLLOWS! 

1 ’) 

DO  40  1:4.17 
TEXTU  ):BLANK 
40  CONTINUE 
DO  50  1:1. NF 
J=2»I-1 

TFXT ( 1 ) =AL 1ST ( 1 1 
TEXT(2):NAME( J) 

TEXT ( 3 ):NAME l J + l 1 
CALL  PSTUFFI 1+3. TEXT  1 
50  CONTINUE 

CALL  PSTUFFI 11. 'TYPE  IN  THE  NUMBER  OF  THE  FACTOR  TO  BE  PLOTTED. 
1 ’) 

CALL  PSNAP 

CALL  PHAITIO.O. 1 .0) 

CALL  GREPLXI TEXT .NS  1 


r 


L 


AD-A036  3*6  6E0R6IA  UNIV  ATHENS  DEPT  OF  STATISTICS  AND  COMPUTER— ETC  F/6  9/2 
•RAPHICAL  AIDS  FOR  STATISTICAL  COMPUTATION. <U> 

DEC  76  M P BOND.  R E BAR6MANN  N0001A-69-A-0423 


END 


DATE 

■ FILMED 

3-77 
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2000  F0RMAT120X. 'TEXT=  ' >2084) 

IN0EX=0 

CALL  I NX ( TEXT . INDEX .N8 .DUMMY .4900 ) 
IVAR=OUNMY+.Ol 


ILN=1VAR*3 

CALL  PPLUCKl ILN.TEXT  I 

00  55  1=1.5 

TEXT! I+3)=PL0FACl I ) 

55  CONTINUE 

CALL  PSTUFFl ILN. TEXT) 

157  CALL  PSTUFFl 11 . ’ENTER  SEPARATED  BY  A COMMA  THE  MINIMUM  AND  MAXIMUM 

1 ’) 

CALL  PSTUFFl 12. ’VALUE  TO  BE  PLOTTED. 

1 ’) 

CALL  PSNAP 

CALL  PHAITIO. 0.1.0) 

CALL  OREPLXl TEXT .NS ) 

IN0EX=0 

CALL  INX( TEXT . INOEX .NS .DUMMY .4900 ) 

VARMIN=DUMMY 

CALL  I NX ( TEXT .INOEX .NS .DUMMY .4900 ) 

VARMAXsDUMMY 

IFtVARMIN.LT. VARMAX)  00  TO  56 

TEMP=VARHIN 

VARMINsVARMAX 

VARMAX=TEMP 

56  CALL  PPLUCKl ILN.BUS) 

DO  156  IPUT=1 .16 

BUSt IPUT+3)=TEXTl IPUT) 

156  CONTINUE 

CALL  PSTUFFl ILN.BUS) 

LVLUP=LVL( IVAR ) 

IFIVARMIN.LT .CONCOMt IVAR . 1 ) .OR -VARHIN -OT -CONCOMt IVOR .LVLUP ) ) 

1 00  TO  158 

IFl VARMAX .LT .CONCOMt I VAR . 1 ) .OR • VARMAX .OT .CONCOMt IVAR .LVLUP ) ) 

1 00  TO  158 
GO  TO  188 

158  CALL  PSTUFFl 13. ’YOU  ARE  EXTRAPOLATING 
1 ’) 

CALL  PSTUFFl 14. 'OEPRESS  KEY  1 TO  CONTINUE 
1 ’) 

CALL  PSTUFFl 15. 'DEPRESS  KEY  2 TO  RE-ENTER  VALUES 
1 ’) 

CALL  PSNAP 

CALL  PHAITll. 0.0.0) 

CALL  PEHLNEt 13 ) 

CALL  PEHLNEl 14 ) 

CALL  PEHLNEl 15) 

IFl KEY .EQ  -2 ) 00  TO  157 

168  CALL  PSTUFFl 13. ’UP  TO  FOUR  PLOTS  CAN  BE  VIEHEO  SIMULTANEOUSLY. 

1 ’) 

CALL  PSTUFFl 14. ’TO  ACCOMPLISH  THIS.  SIMPLY  TYPE  MORE  THAN  ONE  VALU 
IE.  ') 

CALL  PSTUFFl 15. ’ISEPARATEO  BY  COMMAS)  HHEN  ASKEO  TO  ENTER  THE  FOLL 
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10WINO-  ') 

CALL  PSTUFF( 16. ’FIXED  VALUES- 
1 ’) 

CALL  PSTUFFl 17 . ’EXAMPLE i 
1 ’) 

CALL  PSTUFFl 18- '10-5.15-2 
1 ’) 

CALL  PSNAP 
DO  60  1=1 -NF 
J=2«I-1 

IFI1 .EQ.IVAR)  00  TO  60 
92  IXTRsO 

WRITE! 4*1000)  NAME! J) .NAME! J+l 1 
CALL  FETCH! TEXT. MS) 

CALL  PSTUFF! 21  .TEXT  ) 

CALL  PSNAP 

CALL  PHAI T (0.0.1 .0 ) 

CALL  OREPLX(BUS.NS) 

CALL  PPLUCK! 1+3. TEXT) 

00  57  K= 1.16 
TEXT! K*3 )=BUS!  K ) 

57  CONTINUE 

CALL  PSTUFF! 1+3. TEXT) 

INOVAR! I )=0 
INDEX=0 

59  IF! INOVAR! 1 ) . OT - 4 ) 00  TO  60 

CALL  I NX ( BUS . INOEX .NS .DUMMY .i960 ) 

INDVAR! I ) = INOVAR( I ) + l 
JMUL= INOVAR! I ) 

RAMVAR! I . JMUL)=DUMMY 
LVLUP=LVL( I ) 

IF ( OUMMY -LT -CONCOM! 1.1) -OR .DUMMY -OT  -CONCOM! I .LVLUP ) ) IXTR=1 
IF! INOEX. OT-O)  00  TO  59 
IF! IXTR.EQ.O)  00  TO  60 
CALL  PSTUFF! 1*4. 'YOU  ARE  EXTRAPOLATINO 
1 ’) 

CALL  PSTUFFl 1*5.  ’OEPRESS  KEY  1 TO  CONTINUE 
1 ’) 

CALL  PSTUFF! 1+6.  ’DEPRESS  KEY  2 TO  RE-ENTER  VALUES 
1 ’) 

CALL  PSNAP 

CALL  PWAIT(l.O.O.J) 

CALL  PEHLNE! 1*4) 

CALL  PEHLNE! I*5) 

CALL  PEHLNE! 1*6 ) 

IF! KEY -EQ  -2  ) 00  TO  92 

60  CONTINUE 

WRITE! 6.1050)  RAHVAR 
WRITE! 6.1060)  INOVAR 
1050  FORMAT! 20X.6F6. 2) 

1060  FORMAT! 20X .613 ) 

KNTPlOsI 

00  65  1 = 1 . NF 

IF ( I -EQ.IVAR)  00  TO  65 


- -r 


i. 
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KNTPLO=KNTPLO«INOVARl  I ) 

65  CONTINUE 

IFtKNTPL0.LE.4I  00  TO  75 

CALL  PSTUFFl 23 • 'YOU  HAVE  REQUESTED  MORE  THAN  FOUR  PLOTS. 
1 ’) 

CALL  PSTUFFl 24. 'DEPRESS  KEY  1 TO  RESTART  THIS  SECTION. 

1 ’) 

CALL  PSNAP 

CALL  PMAITt 1 .0.0.0) 

00  TO  45 
75  CONTINUE 

CALL  PSTUFFl 23. 'DEPRESS  KEY  1 TO  PLOT. 

1 ') 

CALL  PSNAP 

CALL  PHAITll. 0.0.0) 

CALL  REFILL 
TEXT!  n=PLOTNO(l) 

TEXTl 2 JsPLOTNOl 2 ) 

KKK=3 

DO  180  JJ=1.NF 
IFIJJ.EQ.IVAR)  00  TO  190 
KK=2«JJ-1 
TEXTl  KKKUBLANK 
TEXTl KKK*1 )=NAME(KK ) 

TEXTIKKK+2)  =NAHE(KK+1 1 
KKK=KKK+3 
180  CONTINUE 

NCHAR=12mNF-4 
T0P=4055 . 

CALL  ORCHARl 'BP ’ .TEXT .NCHAR .23 • .TOP . IER 1 

NCHAR=NCHAR+2 

JTLVL=LVL( IVRR1-1 

rnosVaruax-varnin 

0EL=RNO/50 . 

DELLBL=RN0/4. 

NX=55*KNTPL0 
CALL  UVOOINX ) 

CALL  XCHNOEl  IVAR.CTENP1 

HRITEl  6.1020)  l At  JOUT ) .CTEfiPl  JOUT 1 .JOUT=i  .NFO) 

1020  F0RMAT120X.2E12.S1 
NORDRl I VAR )=NF 
NORDRl NF )=IVAR 
DO  300  IPL0T=1 .KNTPLO 

CALL  BNALl IPLOT.IXl 11.1X12). 1X13) .1X1 4). INOVAR) 

MF=NF-1 
00  200  J=1.HF 
JT=NORORi J ) 

JCOL=IXl JT ) 

JTLVL=LVLl JTJ-l 

VALl J )=POLYl COEFl 1 . JT ) .RAHVARl JT . JCOL ) . JTLVL ) 

200  CONTINUE 

HRITEl 6. 1050)  VAL 
TEXTl 1 )=ALI8T( IPLOT) 

TEXT12)=BLANK 
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* 


i 


| 

i 

i 

% 

* 

1 


KK=3 

00  205  Jsl.NF 

IF( J.EQ.IVAR)  00  TO  205 

JCOLsIXlJ) 

MRITEINDH.1001)  RAMVARl J .JCOL) 

CALL  FETCH (BUS. MC) 

TEXT ( KK  )=BUS( 1 ) 

TEXT(KK*1)=BUS12) 

TEXT ( KK+2  )=BUS( 3 ) 

KK=KK+3 
205  CONTINUE 
T0P=T0P-80. 

CALL  ORCHARl ’BP * .TEXT .NCHAR .23 . .TOP . IER ) 
CALL  SPQL Y( CTEHP • VAL .MF .NORDR .C ) 
JTLVL=LVL(IVAR) 

RHIN=10.E30 
RHAXs-RHIN 
XVARsVARHIN 
00  210  1=1.3 
XVAR=XVAR+OELLBL 

XVALrPOLYlCOEFt 1 . 1 VAR ) .XVAR ,LVL( IVAR  )-l ) 
R=BPOLY(C.XVAL.JTLVL ) 

CALL  PUTUVIXVAR ,R .KERROR ) 

210  CONTINUE 
XVARcVARHIN 
DO  220  <J=1 .51 

XVAL=  POLY(COEF( 1 .IVAR)  .XVAR.LVLt IVARJ-1 ) 
R=BPOL Y ( C .X VAL • JTLVL ) 

CALL  PUTUVC XVAR .R .KERROR) 

IF(R.LT.RHIN)  RHINxR 
IF(R.OT.RHAX)  RHAX=R 
XVAR=XVAR+DEL 
220  CONTINUE 

IFIIPLOT.EO.l)  00  TO  290 
IFIRHIN.LT  .SHIN)  6NIN=RHIN 
IF(RHAX.OT.SnAX)  8HAX=RHAX 
00  TO  300 
290  SHIN=RHIN 
SHAXrRHAX 
300  CONTINUE 

HRITE(NDH.1002)  VARH1N 
CALL  FETCH! BU8.HC) 

CALL  ORCHARl ’BP’. BUS. HC. 364. .460. .IER) 
HRITE(N0n.l002)  VARHAX 
CALL  FETCH(BUS.HC) 

CALL  ORCHARl ’BP ’ .BUS .HC.3364 . .460 . .IER ) 
VARINC=RN0/10. 

HRITEIN0H.1003)  VARINC 
CALL  FETCH! BUS. HC) 

CALL  ORCHARl ’BP ’ .BUS .HC. 1640. .440 .. IER) 
BUStl)=NAHEl2«IVAR-l ) 

BUS(2)=NAHE(2«IVAR) 

CALL  ORCHARl ’BP ’ .BUS .8. 1976 . .520. . IER ) 
RESRNO=SHAX-SHIN 
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RINC=RESRNO/10  • 

WRITEIN0H.1002)  SfllN 
CfiLL  FETCH! BUS. HC) 

CALL  ORCHAR! ’BP  ’ .BUS .HC.O. .560. . IER) 

WRITE! NDH . 1002 ) 6HAX 
CALL  FETCH! BUS. HC) 

CALL  ORCHRR! ’BP ’ .BUS .MC.O . .3560. . IER ) 

WRI TE( NDH . 1004 ) 

CALL  FETCH! BUS. HC) 

CALL  ORCHRR! ’BP’ .BUS. HC.O- .2140. .IER) 

WRITE! NDH , 1002 ) RINC 
CALL  FETCH! BUS. HC) 

CALL  ORCHRR! ’BP ' .BUS .HC.O. .2060 . . IER ) 

CALL  ORCHRR! ’BP'. 'DEPRESS  KEY  1 TO  RETURN  TO  OPTION  TABLE’. 
1 39. 500. .340. .IER) 

CALL  ORAXEStVARHIN.VARHAX. SHIN. SHAX. 700. 3700. 600. 3600) 

CALL  ORORID! RNO.RESRNO. ’A’ .IFLAO) 

XLBLsVARHIN 

YLBLsSHIN 

DO  512  LBL=1 .9 

XLBL=XLBL+VARINC 

YLBL=YLBL*RINC 

CALL  ORCHRR! ’BP ’ . ’\ ’ .1 .XLBL .SHIN. IER ) 

CALL  ORCHRR! ’BP 1 .VARniN .YLBL . IER ) 

512  CONTINUE 

00  400  J=1 .KNTPLO 
JJ=! J-l )«54+l 

CALL  ORPLOT! ’BP * . ’B ’ . ’A ’ . JJ .3 .PLI6TI J ) . ’O' .IER ) 

JJP=JJ*3 

CALL  ORPLOT! ’BP ’ . 'A ’ . ’ A ' . JJP .51 . ’■ ' . ’0’ . IER ) 

400  CONTINUE 

CALL  PHAITIl. 0.0.0) 

CALL  UV99 
CALL  REFILL 
CALL  RLSEP 
RETURN 

9 00  CONTINUE 
960  CONTINUE 

WRITE! 6 .2001 ) 

2001  FORHAT ( 20X  . ’BAD  CONVERSION’) 

CALL  RLSEP 

RETURN 

END 
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SUBROUTINE  CONF 
EXTERNAL  EOBINT 

DOUBLE  PRECISION  DUMMY .DS6Q .OER 
REAL  NAME 
COMMON  KEY 

COMMON  /YATDAT/  OSSQ.DER. 
3LVL!4).NFO.IRAH.DAT!256).NEND!4.4).TTL!20). 

1 VNAM 1 2 ) .NAME! 8 1 .FKT( 80 ) . I COOE . IL( 6 ) ,NI N .NOUT .NOX .NF . 

2NVBL  .NREP .CONCOMI 4 .4 ) ,NR( 256) .FA.FB.ND1 ! 256) . IV  .NM .COEF( 4 >6) > 
4A(512) 

COMMON  /BAKDAT/  AFILL1256) .VSE.BFILI260) 

COMHON  /DIRAC/  IREC.JPOINT.NOM.LSAV 

DIMENSION  TEXT120 1 .ALIST! 6) .PLOFAC! 5) .BU6120 1 .RAMVAR! 4 ) . 

1 INOVAR!  6 ) .NOROR( 6 1 . VAL! 6 1 .A00( 4 ) .C( 256) .IX! 6 ) . 

2CTEMPI  256  ) .XUP! 51 1 .XLO(  51  ) .PHI! 4.4 ) .LVT! 4 ) 

DATA  BLANK/’  '/ 

OATA  PLOFAC/ * ««P  ’ • ’LOTT ’ . ’INO  ’ . ’FACT  ’ . 'ORm  V 
DATA  ALIST  /’  1.  ’.’  2.  3.  ’.’  4.  ’/ 

1001  FORMAT! 2X.G1 0.3) 

1002  F0RMAT1O10.3.2X) 

1003  FORMAT! ’INCREMENTS ’.010. 3) 

1004  FORMAT! ’INCREMENTS’) 

WRITE! 6.1010)  COEF 

1010  FORHAT ( 20X .4010.3) 

NSs68 

CALL  INITP 

CALL  EOBP(EOBINT) 

CALL  PEHPOE 

CALL  ORAXES! 0 . .4085 . .80 . .4095 . .0.4095.80.4095 ) 

DO  17  K0B=1 .4 
NORDR! KOB )sKOB 
17  CONTINUE 

CALL  PASKIT! 2 ) 

CALL  PSTUFF! 2 . ’THE  FACTORS  ARE  AS  FOLLOWS • 

1 ’) 

DO  40  Isl.17 
TEXT! I )=BLANK 
40  CONTINUE 
DO  50  1 = 1 .NF 
J=2« I - 1 

TEXT! 1 )=ALIST! I ) 

TEXT!2)=NAME! J) 

TEXT(3)=NAME1 J*1 ) 

CALL  PSTUFF! 1*3. TEXT) 

50  CONTINUE 

CALL  PSTUFF! 11. ’TYPE  IN  THE  NUMBER  OF  THE  FACTOR  TO  BE  PLOTTED. 
1 ’) 

CALL  PSNAP 

CALL  PWAITtO. 0,1.0) 

CALL  0REPLX1 TEXT .NS ) 

INOEXsO 

CALL  I NX! TEXT . INDEX .NS .DUMMY .4900 ) 

I VAR=OUMMY* . I 
ILN=IVAR*3 
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CALL  PPLUCK( ILN.TEXT) 

00  55  1=1.5 
TEXTII*3)=PL0FAC(I) 

55  CONTINUE 

CALL  PSTUFF( ILN.TEXT) 

CALL  PSTUFFl 1 1 . 'ENTER  SEPARATED  BY  A COMMA  THE  MINIMUM  AND  MAXIMUM 
l ’) 

CALL  PSTUFFl 12 . ’VALUE  TO  BE  PLOTTED. 

1 •) 

54  CALL  PSNAP 

CALL  PMAITtO.O .1.0) 

CALL  GREPLXl TEXT .NS ) 

INOEXsO 

CALL  INX( TEXT .INDEX .NS .DUMMY .4900 ) 

VARM1N=DUMMY 

CALL  INXf TEXT , INDEX .NS .DUMMY .4900 ) 

VARMAX=DUMMY 

IFtVARMIN.LT. VARMAX)  GO  TO  56 

TEMP=VARHIN 

VARMINsVARMAX 

VARMAX=TEMP 

56  IF( VARHIN .GE .CONCOMI IVAR . 1 ) .AND .VARMAX .LE .CONCOMl IVAR ,LVL( IVAR  ) ) ) 

1 GO  TO  57 

CALL  PSTUFFl 14. ’VALUES  OUTSIDE  OF  THE  RANGE  HAVE  BEEN  CHOSEN. 

1 ’) 

CALL  PSTUFFl 15. ’DEPRESS  KEY  1 TO  CONTINUE  OR  KEY  2 TO  RESELECT  THE 
1 VALUES  ’ ) 

CALL  P6NAP 

CALL  PHAITI 1 .0.0.0) 

CALL  PENLNEl 14 ) 

CALL  PENLNEl 15 ) 

IFIKEY.EQ.2)  GO  TO  54 

57  CALL  PPLUCKl ILN.BUS) 

DO  156  IPUT=1 .16 

BUSl IPUT+3 )=TEXTl IPUT) 

156  CONTINUE 

CALL  PSTUFFl ILN.BUS) 

CALL  PSNAP 
DO  60  1=1. NF 
J=2*I-1 

IF(I.EQ.IVAR)  DO  TO  60 
HRITE(NDM.IOOO)  NAMEl J ) .NAMEl J+l ) 

1000  FORMATl ’ENTER  THE  VALUE  FOR  ’.2A4) 

CALL  FETCHl TEXT .MS ) 

CALL  PSTUFFl 14. TEXT) 

59  CALL  PSNAP 

CALL  PNAITlO.O.l  .0) 

CALL  GREPLXl BUS .NS ) 

CALL  PPLUCKl 1+3. TEXT) 

DO  157  K=1 .16 
TEXT(K+3)=BUS(K) 

157  CONTINUE 

CALL  PSTUFFl 1*3. TEXT  ) 

INOEXsO 
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CALL  I NX( BUS . INDEX .NS .DUMMY . (960 ) 

RAHVARI I )=DUMMY 

IFIRAHVARI  1 1 .GE  .C0NC0MI  1.1)  .AND. RAHVARI  I ) .LE.CONCOMI  I .LVL(  I) ) ) 

1 DO  TO  80 

CALL  PSTUFFI 15. 'THE  VALUE  IS  OUTSIDE  OF  THE  RANGE • 

1 ’) 

CALL  PSTUFFU6. ’DEPRESS  KEY  1 TO  CONTINUE  OR  KEY  2 TO  RESELECT  THE 
1 VALUE.  ’) 

CALL  PSNAP 

CALL  PHAITU. 0.0.0) 

CALL  PEHLNEI 15 ) 

CALL  PEHLNEI 16) 

IF1KEY.E0.2)  DO  TO  59 
60  CONTINUE 

HRITE16.1050)  RAHVAR 
WRITE! 6. 1 060 ) INDVAR 
1050  FORMAT  1 20X .6F6 .2 ) 

1060  FORMAT 1 20X .613 ) 

CALL  PSTUFF! 14. ’DEPRESS  KEY  1 TO  PLOT 
1 ’) 

CALL  PSNAP 

CALL  PHAITU. 0.0.0) 

CALL  REFILL 
TEXT! 1 )=BLANK 
TEXT! 2 )=BLANK 
KKK=3 

00  190  JJ=1.NF 

IF! JJ.EQ.IVAR)  DO  TO  190 

KK=2«JJ-1 

TEXT! KKK )=BLANK 

TEXTIKKK+1 ) = NAMEIKK) 

TEXT(KKK+2)=NAME(KK+1 ) 

KKKsKKK+3 
190  CONTINUE 

NCHAR=12»NF-4 

T0P=4055. 

CALL  DRCHARI 'BP ' .TEXT.NCHAR .23 . .TOP .IER ) 

NCHAR=NCHAR+2 
JTLVL=LVLI IVAR  )*2 
RND=VARMAX-VARMIN 
0EL=RND/50. 

NX=165 

CALL  UVOOINX ) 

CALL  XCHNOEI IVAR.CTEMP) 

HRITEI 6. 1020) I A( JOUT ) .CTEMPI JOUT ) . J0UT=1 .NFD) 

1020  FORMAT  1 20X .2E12 .5 ) 

NORDRI IVAR )=NF 
NORORI NF )=IVAR 
MF=NF-1 
00  200  J=1.MF 
JT=NORDR( J ) 

JTLVL=LVL( JT)-1 

VALI d )=POLY( COEFI 1 . JT ) .RAHVARI JT ) . JTLVL ) 

200  CONTINUE 
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HRITE(6.1050)  VRL 
TEX  T C 1 )=BLRNK 
TEXTt2)=0LANK 
KK=3 

DO  205  J=1.NF 
IFIJ-EQ.IVAR)  00  TO  205 
HRITE(NOtl.lOOl)  RANVAR(J) 

CALL  FETCH! BUS. HC) 

TEXTtKK  )=BU8( 1 ) 

TEXTtKK'fl  )=BUS(2) 

TEXT I KK+2 )=BUS( 3 ) 

KK=KK+3 
205  CONTINUE 
T0P=T0P-80 . 

CALL  ORCHAR! ’BP ’ .TEXT .NCHRR .23 . .TOP . IER ) 
00  690  KK=1 .4 
690  R00( KK )=0 • 

RNT=NFO«NREP 
AN=1.*1. 0/ANT 
00  700  Jrl.HF 
JLVL=LVL( NORORI J I ) 

00  700  K=1 . JLVL 

PH  I ( K . J )=ORTHl VRL( J ) .K .JLVL ) 

700  CONTINUE 

00  800  K=1.NF0 

CALL  ANAL(K.IXm.IX(2).IX(3).IX(4n 
flOsNOl(K) 

RNUHsl.O 
00  990  1=1. HF 
IIsNORORtl) 

ANUM=ANUH*PHIIIX(II).I) 

990  CONTINUE 

JTEMP=IX( IVRR ) 

ROD( JTEMP )=ADDl JTEHP )*RNUH«ANUH/AO 
800  CONTINUE 

CALL  SPOLY(CTEHP.VAL.HF.NOROR.C) 
JTLVL=LVL( IVRR ) 

Sf1IN=10.E30 
SMAX=-SHIN 
XVAR=VARHIN 
DO  220  J=1 .51 

XVAL=P0LY1C0EF( 1 ,IVAR) .XVAR.JTLVL-1 ) 
R=BPOLY(C.XVAL . JTLVL ) 

CALL  PUTUVtXVAR .R .KERROR ) 

ANN=AN 

00  225  JJ=1. JTLVL 
FEE=ORTH(XVAL.JJ. JTLVL) 

ANN=ANN+AOO( JJ )*FEE»FEE 
225  CONTINUE 

TERM=2  •0*SQRT( VSE»ANN ) 

XLO(J)=R-TERM 

IF(XLO(J) .LT -SHIN)  SNIN=XLO(J) 

XUP( J)=R«TERH 

IF(XUP( Jl.OT.SHAX)  8HAX=XUP( J ) 


XVAR=XVAR+DEL 
220  CONTINUE 
XVAR=VARHIN 
00  230  J=1.51 

CALL  PUTUV! XVAR .XLO! J)  .KERROR  ) 

XVAR=XVAR+OEL 
230  CONTINUE 
XVAR=VARHIN 
DO  240  K=1 .51 

CALL  PUTUV(XVAR.XUP(K  1. KERROR) 

XVAR=XVAR*DEL 
240  CONTINUE 

WRITE(NDH.1002)  V ARM  I N 
CALL  FETCH! BUS .HC  ) 

CALL  ORCHAR! 'BP  ' .BUS  .HC  .364 . .460 . . IER ) 

WRITE! NOfl .1002  ) VARNAX 
CALL  FETCH! BUS. MCI 

CALL  ORCHAR! 'BP ' .BUS .HC .3364 . .460 . . IER ) 

VARINC=RNO/10. 

WRITE! NOM  .1003  ) VARINC 
CALL  FETCH! BUS. HC  I 

CALL  ORCHAR! 'BP ' .BUS. HC, 1640. .440. .IER) 

BUS(n=NAHE(  2»I  VAR-1 ) 

BU6 ( 2 ) =N AHE ( 2« I V AR ) 

CALL  ORCHARt 'BP ' .BUS .8 . 1976 . .520 . . IER ) 

RE8RN0=8HAX-6HIN 

RINC=RESRN0/10. 

WRITE! NON  .1002  ) SHIN 
CALL  FETCH! BUS. HC) 

CALL  ORCHAR! 'BP ' .BUS .HC .0 . .560 . . IER ) 

WRITE! NDH. 1002)  SHAX 
CALL  FETCHtBUS.nC) 

CALL  ORCHAR! 'BP ' .BUS .HC.O- .3560. .IER ) 

WRITE! NDH. 1004) 

CALL  FETCH! BUS. HC) 

CALL  ORCHAR! 'BP ' .BUS .HC.O. .2140. .IER ) 

WRITE(N0H.1002 ) RINC 
CALL  FETCH! BUS. HC) 

CALL  ORCHAR! 'BP ’ .BUS .HC.O . .2060 .. IER ) 

CALL  ORCHAR! 'BP ' . 'DEPRESS  KEY  1 TO  RETURN  TO  OPTION  TABLE' 
1 39.500. .340. .IER) 

CALL  ORAXES! VARHIN .VARHAX .SHIN .SHAX .700 .3700.600 .3600 ) 

CALL  ORORID! RNO.RESRNO, *A ' .IFLAO) 

XLBL=VARHIN 

YLBL=SHIN 

DO  512  LBL=1 .9 

XLBL=XLBL+VARINC 

YLBL=YLBL+RINC 

CALL  ORCHAR! 'BP ' . ’\ ’ . 1 .XLBL .SHIN . IER  ) 

CALL  ORCHAR! ’BP 1 .VARHIN .YLBL . IER ) 

512  CONTINUE 

CALL  ORPLOTl 'BP ’ . 'A ’ . ’ A ’ . 1 .51 . '■ ' . *0  ' . IER ) 

CALL  ORPLOT! 'BP ’ . 'B ' . ’ A ’ .52 .51 . 'L ' . '0 ’ . IER ) 

CALL  ORPLOT! 'BP ' . *B ' . 'A ' . 103 .51 . 'U ' . '0 ' . IER ) 
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CALL  PMflITd. 0.0.0) 

CALL  UV99 
CALL  REFILL 

' CALL  RL8EP 

RETURN 

9 00  CONTINUE 
960  CONTINUE 

HR  I TE ( 6.2001 ) 

2001  F0RNAT120X. 'BAO  CONVERSION’) 

CALL  RLSEP 

RETURN 

END 
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SUBROUTINE  CONTUR 
EXTERNAL  EOBINT 

DOUBLE  PRECISION  DUMMY .DSSQ .DER 
REAL  NAME 

COMMON  KEY.IOVLY.ITYPE 
COMMON  /YATDAT/  DSSQ.DER. 

3LVL( 4 ) .NFS. IRAN  .DAT! 256 ) .NEND! 4 .4  ) .TTL! 20 1 • 
l VNAM! 2 J .NAME! 8 ) .FMT! 80 ) . I CODE . IL( 6 ) .NIN .NOUT .NDX ,NF, 

2NVBL .NREP .CONCOM! 4 .4 ) .NR( 256 1 .FA .FB .NOl ( 256 ) . I V .NW .COEF( 4 .6 ) . 
4A12S6) 

COMMON  /DIRAC/  IREC. JPOINT .NDM .L6AV 

DIMENSION  TEXTI20 ) . ALI ST ( 6 ) .PLOFAC!  5 ) .BUS( 20 ) .RAWVAR! 4 I . 

1 INDVARl 4 ) .N0ROR( 4).PL0TN0!2).VAL(6) .PL I ST ! 4 ) >C( 256 ) . I X( 6 ) • 

2 CINV! 4 ) .BAD( 3) . JX( 4 ) .B!6 ) .1 VAR( 2 ) .VARMIN! 2 ) .VARMAX! 2 ) ,LVT( 4 ) , 

3 ROOT! 4 )» VAR  INC! 2 ) 

ORTA  BAD  /'NO  S ' . 'OLUT ' . ' ION  ’/ 

DATA  ALIST/ ' 1.  2.  3-  4.  V 

DATA  BLANK/'  ’/ 

DATA  PLOFAC/ ' ««P ' . 'LOTT ’ . ’ IND  ’ . 'FACT ’ . ’0R«» ’/ 

DATA  PLOTNO/ 'PLOT  * . ' NO.'/ 
i DATA  PLIST/'I'.'2,.’3'.,4'/ 

DATA  RESPAL  .ONSE/ 'RESP  ’ . 'ONSE ’/ 

1000  FORMAT! 'ENTER  THE  VALUE  FOR  ’.2A4.40X) 

1001  F0RHAT(O12.6) 

1002  FORMAT! DIO -3 .2X ) 

1003  FORMAT! 'INCREMENTS'. DIO. 3) 

1004  FORMAT! 'INCREMENTS') 

1010  FORMAT! 20X .4010 »3 ) 

NS=68 

CALL  INITP 
CALL  EOBP! EOBINT ) 

CALL  PEHPDE 

CALL  ORAXES! 0 . .4095 . .80 . . 4095 . .0.4095 .80.4095 ) 

CALL  PASKIT! 2 ) 

CALL  PSTUFF12. 'THE  FACTORS  ARE  AS  FOLLOWS i 
1 ’> 

DO  40  Isl , 17 
TEXT ( I IsBLANK 

4 40  CONTINUE 

DO  50  Isl.NF 
J=2*I-1 

’ TEXT! 1 JsALIST! I ) 

TEXT!2)sNAME( J) 

TEXT!3)sNAME( J+l ) 

CALL  PSTUFF! I *3. TEXT ) 

50  CONTINUE 

CALL  PSTUFF! 11. 'TYPE  IN.  SEPARATED  BY  A COMMA.  THE  NUMBERS  OF  THE 
1 ’) 

CALL  PSTUFF! 12. 'TWO  FACTORS  FOR  WHICH  YOU  WISH  CONTOURS. 

1 ’) 

CALL  PSNAP 

CALL  PHAITtO.O.l  .0) 

CALL  DREPLX! TEXT .NS) 

INOEXsO 
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CALL  I NX ( TEXT .INDEX .N8 .DUMMY .<900 ) 

IVARI 1 )=DUMMY+  . 1 

CALL  INXl TEXT . INDEX .NS .DUMMY .<900 1 
I VAR ( 2 )=0UMMY* . 1 

IF! LVLI IVAR(Z) ) .LE  >LVLI IVARI I III  00  TO  51 
I TEMP=I VARC 1 ) 

IVARI 1 J = I VAR C 2 ) 

IVARI 2 )=I TEMP 

51  CALL  Z TORAH ( CINV.IVARI2)) 

DO  155  KK=1 .2 
ILN=IVAR( KK )*3 
CALL  PPLUCKl ILN .TEXT  ) 

DO  55  1=1.5 
TEXTI I «-3  )=PLOFACl  I ) 

55  CONTINUE 
CALL  P8TUFFI ILN. TEXT) 

CALL  PSTUFFdl.  ’ENTER.  SEPARATED  BY  A COMMA.  THE  MINIMUM  AND  MAXIM 
1UM  1 ) 

CALL  PSTUFFl 12. 'VALUE  FOR  THE  INDICATED  FACTOR 
' ') 

54  CALL  P8NAP 

CALL  PHAI T (0.0.1 .0) 

CALL  OREPLXI TEXT .NS ) 

INDEX=0 

CALL  I NX ( TEXT . I NDEX .NS .DUMMY .<900  ) 

VARMINIKK ) = DUMMY 

CALL  INX( TEXT  .INDEX .NS .DUMMY .<900 ) 

V ARM AX ( KK )=DUMMY 

IFIVARMINIKKI.LT. VARMAX(KK))  00  TO  56 
TEMP=VARMINIKK) 

VARMINIKK )=VARMAX(KK ) 

VARMAXl KK )=TEMP 

56  IFIVARMIN1KKI.0E .CONCOMC IVAR(KK).l) .AND .VARMAXl KK ) .LE • 

1 CONCOMI I VAR( KK ) ,LVL( IVARI KK ) ) ) ) 00  TO  57 

CALL  PSTUFFU4.  'VALUES  OUTSIDE  OF  THE  RANGE  HAVE  BEEN  CHOSEN. 

1 ') 

CALL  PSTUFFl 15. 'DEPRESS  KEY  1 TO  CONTINUE  OR  KEY  2 TO  RESELECT  THE 
1 VALUES  1 ) 

* CALL  PSNAP 

CALL  PMAITll. 0.0.0) 

CALL  PEHLNEI 14) 

CALL  PEHLNEI 15 ) 

IF! KEY  .EQ  .2)  00  TO  54 

57  CALL  PPLUCKl ILN. BUS) 

DO  156  IPUT=1 .16 

BUS  1 1 PUT ♦3)=TEXTIIPUT) 

156  CONTINUE 

CALL  PSTUFFl ILN.BU6) 

155  CONTINUE 

IFINF.EQ.2)  00  TO  400 
DO  60  1 = 1. NF 
J=2»I-1 

i IFI I -EQ. IVARI 1 ) - OR « I • EQ • I VAR ( 2 ) ) 00  TO  60 

r HRI TEI NDM .1000  ) NAME! J) .NAME! J+l ) 


* 

t 


0 


•v  . 
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CALL  FETCH! TEXT. MS) 

CALL  PSTUFF! 14. TEXT) 

59  CALL  PSNAP 

CALL  PHAITIO. 0.1.0) 

CALL  GREPLXIBUS.NS) 

CALL  PPLUCK! 1*3. TEXT) 

00  157  K=1.16 
TEXT1K+3)=BUS(K) 

157  CONTINUE 

CALL  PSTUFF! I*3. TEXT) 

IN0EX=0 

CALL  I NX ( BUS . INDEX ,N8 .DUMMY .4960 ) 

RAHVAR! I )=DUMMY 

IF( RAHVAR! I ) -DE .CONCOM! I . 1 ) .AND .RAHVAR! I ) -LE .CONCOM! I .LVL( I ) ) ) 

1 DO  TO  60 

CALL  PSTUFFl 15. ’THE  VALUE  IS  OUTSIDE  OF  THE  RANGE . 

1 ’) 

CALL  PSTUFF! 16 . ’DEPRESS  KEY  1 TO  CONTINUE  OR  KEY  2 TO  RESELECT  THE 
1 VALUE.  ’) 

CALL  PSNAP 

CALL  PHAITll. 0.0.0) 

CALL  PENLNE! 15 ) 

CALL  PEHLNE! 16 ) 

IF! KEY .EQ  .2 ) DO  TO  59 

60  CONTINUE 

400  CALL  PSTUFF! 14. 'ENTER  THE  PREDICTED  RESPONSE  FOR  WHICH  YOU  WISH  TO 
1 PLOT  A CONTOUR  ’) 

CALL  PSNAP 

CALL  PWAlTtO. 0.1.0) 

CALL  OREPLX! TEXT .NS ) 

IN0EX=0 

CALL  1 NX (TEXT. INDEX. NS .DUMMY .4900 ) 

RESP=OUMMY 

CALL  PSTUFF!  U.’OEPRESS  KEY  1 TO  PLOT 
1 *) 

CALL  PSNAP 

CALL  PNAITl 1 .0.0.0) 

913  CALL  REFILL 
KNTPL0=1 

TEXT! 1 )=PL0TN0!1) 

TEXT! 2 )=PLOTNO( 2 ) 

TEXT ( 3 )=8LANK 
TEXT ! 4 )=RESPAL 
TEXT(5)=0NSE 
IFINF.E0.2)  DO  TO  191 
KKK=6 

00  190  JJsl.NF 

IF! JJ .EQ . IVAR! 1 ) .OR • JJ.EQ.IVAR! 2 ) ) DO  TO  190 

KK=2«JJ-1 

TEXT ( KKK  )=BLANK 

TEXT  ( KKKi-1 ) =NAME(KK) 

TEXT!  KKK >-2  )=NAMEl  KK+1 ) 

KKK=KKK*3 
190  CONTINUE 


191  NCHAR=12«NF-4 
T0P=4055. 

CALL  ORCHARl ’BP ’ .TEXT .NCHAR .23 . .TOP . IER 1 
NCHAR=NCHAR*2 

RE8RNG=VARNAX ( 2 J-VARHINl 2 ) 

RNG=VARNAX(  1 l-VARNINl  1 ) 

DEL=RNG/50 • 

NX=165 

CALL  UVOO(NX) 

HF=NF-1 

DO  409  111=1.4 
N0RDR1 III  1 = 1 1 1 

409  CONTINUE 
K=1 

00  410  1=1 .NF 

IF(l.EQ.IVAR(l).0R.I.EQ.IVAR(2n  00  TO  410 

NORORI K ) = I 

K=K+1 

410  CONTINUE 

411  NORORl NF  J = I VARC 1 1 
NORORl NF 1=IVAR(21 
DO  420  1=1.4 

LVT( I 1=LVL( NORORt 111 
420  CONTINUE 

DO  430  J=1.NFG 

CALL  ANAL( J. 1X111.  IX( 2 1.1X13 ).  1X14)1 

00  440  K=1 .4 

JX( K ) = IX( NORDRC  K 1 ) 

440  CONTINUE 

NY=LTNEH1 LVT . JX(1) . JX( 2 ) . JX( 3 1 . JXC  4 11 
C1NY)=A(JJ 
430  CONTINUE 

IFINF.EQ.2)  GO  TO  201 
MFF=NF-2 
DO  200  J=1 ,NFF 
JT=NORDR( J ) 

JTLVL=LVLl JT1-1 

VAL( J )=POLY( COEFl 1 . JT 1 .RAMVAR1 JT 1 . JTLVL 1 

200  CONTINUE 
NCOF=NFG 

DO  460  K=1.NFF 
L6TEP=LVT(K ) 

ICT=1 

DO  470  J=1 .NCOF.LSTEP 
C( ICT)=BPOLY(C( J).VAL(K).LSTEP) 

ICT=ICT*1 
470  CONTINUE 

NC0F=NC0F/L8TEP 
460  CONTINUE 

201  cm=cm-RESP 
XVAR=VARNIN( 1 ) 

NCOF=LVT ( NF  1*LVT( NF ) 

L8TEP=LVTl NF I 
KPT=0 
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DO  220  J=1.51 

XVAL=POLYl COEF! 1 . IVARl 1 1 ) .XVflR .LVTl HF  )-l ) 

I C T=  1 

DO  4B0  JJ=1 .NCOF .L6TEP 
B 1 1 CT )=BPOLY(C( JJ ) .XVAL .L8TEP ) 

ICT=ICT*1 
460  CONTINUE 

CALL  ROOTER! B .ROOT .NUHRT .LVTl NF I ) 

IFINUMRT .EG.0)  00  TO  218 

00  490  KJJ=1 .NUHRT 

YVAR=BPOLY! CINV. ROOT! KJJ). LVTl NF)) 

IF! YVAR.LT - VflRfl I N ( 2 ) J 00  TO  490 
IF! YVAR .OT .VARHAX 12 1 1 00  TO  490 
COLL  PUTUVI XVflR .YVRR .KERROR I 
KPT=KPT+1 
490  CONTINUE 
218  XVAR=XVAR+DEL 
220  CONTINUE 

IF(KNTPLO.NE.l)  00  TO  700 
WRITE! NON. 1002  ) VARHINI1) 

CALL  FETCHIBUS.nC) 

CALL  ORCHflR! 'BP ' .BUS .HC .384 . .480 • . IER I 
WRITE! NON. 1002 ) VARHAXI1) 

CALL  FETCHIBUS.nC! 

CALL  ORCHAR! 'BP ’ .BUS .HC.3364. .460 . .IER) 

VAR INC! 1 )=RNO/10 • 

WRITE! NON .1003  ) VARINC(l) 

CALL  FETCHCBUS.nO 

CALL  ORCHAR! 'BP ’ .BUS .HC .1 640 ■ .440 . . IER ) 

BU6! 1 )=NAHE( 2aIVAR( 1 1-1 1 
BUS! 2I=NAHE( 2a I VAR! 11) 

CALL  ORCHAR! 'BP ' .BUS .8 . 1976 . .520 . . IER ) 

VARINC! 2)  = ( VARHAX! 2 1-VARHINl 2)1/10. 

WRITE! NON. 1002 1 VARHINI2) 

CALL  FETCHIBUS.nC) 

CALL  ORCHAR! 'BP ' .BUS .HC.O . .560. . IER I 
WRITE! NON  .1002  ) VARHAX! 2 1 
CALL  FETCHIBUS.NC) 

CALL  ORCHAR! 'BP ’ .BUS .HC .0. .3560 . .IER I 
WRITE! NON ,1004 ) 

CALL  FETCHIBUS.NC) 

CALL  ORCHAR! 'BP ’ .BUS. HC.O. .2140. .IER ) 

WRI TE( NON . 1 002 ) VARINC! 2 ) 

CALL  FETCHIBUS.NC) 

CALL  ORCHAR! 'BP ’ .BUS .HC .0. .2080 . . IER ) 

BUS! 1 )=NAHE! 2«I VAR12  )-l ) 

BUS! 2 )=NAHE( 2aIVAR( 2 ) ) 

CALL  ORCHAR! 'BP ' .BUS .6 .0 . .2220 . . IER ) 

CALL  ORCHAR! 'BP '.'DEPRESS  KEY  1 TO  RETURN  TO  OPTION  TABLE'. 

1 39. 500. .340. .IER) 

CALL  ORCHAR! 'BP'. 'OR  ENTER  NEW  RESPONSE  l NEW  FRAHE  CREATEO  AFTER  4 
1 PLOTS.)'. 56. 500. .250. .IER) 

700  DO  699  I6L=1 .20 
699  TEXT! IBL)=BLANK 
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TEXT Cl  )=ALI6T(KNTPL0) 

TEXT(2)=8LANK 
HRITECN0H.1001)  RESP 
CALL  FETCH  (BUS.  ItC ) 

TEXTC3)=BUSm 
TEXTC 4)=BU8(2) 

TEXTC5l=BU6(31 

KKs6 

IFCNF.E0.2)  00  TO  720 
00  70S  Jsl.NF 

IFC J.EQ.IVARC 1 ) .OR .J .EQ *1 VARC2 ) ) 00  TO  70S 
MRITECN0H.1001)  RAMVARC J) 

CALL  FETCHCBUS.nC) 

i TEXTC KK)=BUSC1) 

* TEXTCKK+l i = BUS  C 2 ) 

TEXT(KK>2)=8US(3) 

KKsKK+3 

70S  CONTINUE 

720  IFCKPT.NE.O)  00  TO  725 
TEXTCKKlsBADll) 

TEXTCKK+l  )=BA0(2) 

TEXTC KK+2 )=BAOC  3 ) 

KK=KK+3 

72S  TOP=TOP-BO. 

NCHARs4bKK 

CALL  ORCHARC ,BP,.TEXT.NCHAR.23..T0P.IER) 

CALL  ORAXESC VARHINC 1 ) .VARnAXC 1 ) .VARNINC21 .VARHAXC 2) .700.3700. 
1600.3600) 

IFCKNTPLO-NE.l)  00  TO  780 

CALL  ORORIOCRNO.RESRNO. 'A ’ . IFLAO) 

XLBLsVARHINC 1) 

YLBL=VARHINC2) 

00  512  LBL=1 .9 
XLBL=XLBL+VARINC(1) 

YLBL=YLBL+VARINC(2) 

CALL  ORCHARC 'BP' • '\' .1 .XLBL. VARHINC 2) . IER) 

CALL  ORCHARC  *BP  .1 .VARHINC 1 ) .YLBL ,IER) 

512  CONTINUE 

* 760  IFCKPT.EQ.O)  00  TO  770 

CALL  ORPLOTC  *BP ’ . ’B ’ . ’A * . 1 .KPT .PLISTCKNTPLO) . ’0’ .IER) 

, 770  CALL  PMAITll. 0.1.0) 

roi  I IIVQQ 

i IFCITYPE.Efl.il  00  TO  780 

KNTPL0=KNTPL0+1 
CALL  OREPLXC  TEXT «NS ) 

C( 1 )=CC 1 l+RESP 
IN0EX=0 

CALL  I NX ( TEXT . INOEX .NS .OUHHY .4900 ) 

RESPsOUHHY 

CALL  ORAXES ( 0 . . 4095 . .80 . . 4095 . .0 . 4095.80 . 4095 ) 

IFIKNTPLO.OT.4)  00  TO  913 
CALL  UVOOCNX) 

{ 00  TO  201 

( 780  CALL  REFILL 


< 


Iftljj - 
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CALL  RL8EP 
RETURN 

90H  CONTINUE 
960  CONTINUE 

MRITE(8.2001) 

2001  FORMAT t20X. 'BAD  CONVERSION') 
CALL  RL6EP 
RETURN 
END 
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SUBROUTINE  ANAL  CNN.IA.IB.IC.IO) 

COMMON  /YATDAT/  0UM1  .DUH2 .0UM3 .0UM4.LVLI 4 ) 

N s NN 

NFC  = LVL( 1 )«LVL( 2 )»LVL( 3 ) 

10  = IN-D/NFO  ♦ 1 
N = MOD(N-l.NFC)  ♦ 1 
NFC  = LVL( 1 )»LVL( 2 ) 

IC  = (N-D/NFG  ♦ 1 

N s M001N-1.NFG1  ♦ 1 

IB  = (N-n/LVLtn  1 

IA  s MODI N-l .LVL( 1 ) ) ♦ 1 

RETURN 

END 


SUBROUTINE  BNflL(NN.Ifl.IB.IC.IO.LVL) 
DIMENSION  LVL(l) 

N = NN 

NFO=LVLin«LVL(2)«LVL(3) 

ID  = (N-1I/NFO  ♦ 1 
N = MOO(N-I.NFG)  ♦ 1 
NFG  = LVL( 1 J»LVLI2) 

IC  = tN-D/NFO  ♦ 1 

N = MOOCN-l.NFG)  ♦ 1 

IB  = (N-n/LVLlll  ♦ 1 

IH  = MOD(N-l.LVLCl)  ) ♦ 1 

RETURN 

END 
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FUNCTION  LT( II  .I2.I3.I4i 

COMMON  /YRTOflT/  0UM1 .0UM2 .0UM3  .DUM4 .LVL( 4 ) 

LT=(U  14-1  )«LVL(3)«-I3-1  > -L  VL  f 2 1 ♦ 1 2- 1 )»LYL(  l)*Il 

RETURN 

END 
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FUNCTION  LTNEHILVL.il. 12. 13. 14) 

01 HENS I ON  LVLl 1 ) 

LT=(  1(14-1  )«LVL( 3 1 1 3—  1 )«LVL(2 1+I2-1  )«LVL(  1 )*I1 

LTNEH=LT 

RETURN 

END 
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FUNCTION  BPOLY(fl.X.N) 
DIMENSION  fl( 1 ) 
BP0LY=0. 

IFIN.LT.l)  RETURN 
BPOLY=fllNl 
IHN.EO.l)  RETURN 
NOEO=N-1 
00  1 J=1 .NOEG 
JM=N- J 

I BPOLY=X»BP0LY+fl( JN ) 
RETURN 
ENO 


307 


FUNCTION  POLY(fl.X.N) 
DIMENSION  fill) 

P0LY=0 • 

IF(N.LT.O)  RETURN 
POLY=fl( 1 ) 

IF(N.EQ.O)  RETURN 
DO  1 J=1.N 
1 POLY=X«P0LY«-fl(  J«-l) 
RETURN 
ENO 
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SUBROUTINE  ROOTER! 6 .R .NR .LVL ) 
DIMENSION  S(1).R(1).B(4).R<4) 

00  5 1 = 1. LVL 

flm=sm 

S CONTINUE 
NR=0 

IN0=LVL-1 

DO  TO  ( 10.20.30) . IND 
10  IFIflI2).EQ.O.)  RETURN 
NR=NR+1 

R(NR)=-fl( 1 1/RC2) 

RETURN 

20  IFIROl.EQ.O.)  00  TO  10 

TERM=fi(2)«fll2)-4.0«fl(3)*fll 1 ) 

IF( TERM ) 22.24.28 
24  NR=NR+1 

R(NR 2 )/I 2«0*RI 3 ) ) 

22  RETURN 
26  NRsNR+l 

RINR ) = ( -R12  J-SQRTI TERM ) )/( 2 •0«fl( 3 ) ) 
Nr-NR+1 

R(NR)=(-fi(2)»SQRT(TERM) )/(2«0aR(3) ) 
RETURN 

30  IFIflUI.EQ.O. ) 00  TO  20 
X=0. 

00  40  1=1.100 
XSRVaX 
B(3)afl(4J 
B(2)=flI3HXaBl3) 

81 1 )=R( 2 )*X*B( 2 1 
OF=fl(IUX«Bm 
TEMP=B( 2 )*X«Bl  3 ) 

TEHP=B( 1 )*X*TEMP 
IFITEMP.NE.O.)  00  TO  35 
X=X*.5 
00  TO  40 
35  X=X-DF/TEMP 

IF! RB6( X-XSRV ) .LE . 1 .E-51  00  TO  50 
40  CONTINUE 
NR=0 
RETURN 
50  NR=1 
R(1)=X 
fl  1 3 1 =B 131 
R(2)=B(2) 

R(I>:BI1) 

00  TO  20 
ENO 
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SUBROUTINE  SPOLY ( B . VflL . ISTOP .NORDR .A ) 

DOUBLE  PRECISION  DSSQ.OER 
DIMENSION  fl( 1 ) .VflLf 1 ) . NORDR ( 1 ) .B( 1 ) 

COMMON  /YflTDflT/  DSSQ.DER. 

3LVLI 4 ) .NFG. IRflH .DflT( 256 1 . NENDI 4.4).TTL(20). 

lVNflMl 2 ) .NRMEl  8 ) .FMT ( BO ) . I CODE  . I L ( 6 ) . NIN .NOUT .NOX  .NF . 

2NVBL .NREP .CONCOMI 4 .4  I .NR( 256 1 .Ffl .FB .N01 ( 256 ) . I V .NH 
IFUSTOP.OT.NF)  ISTOP=NF 
00  10  JK=1.NFG 
10  fl(JK)=BtJK) 

NCOF=NFG 

DO  50  K=1  .ISTOP 

JT=NOROR( K ) 

LSTEP=LVLtJT) 

I C T=  3 

DO  40  J=1  .NCOF.LSTEP 
R( ICT)=BPOLY(fl( J).VflL(K).LSTEP) 

ICT=ICT-*-l 
40  CONTINUE 

NCOF=NCOF/LSTEP 
50  CONTINUE 
RETURN 
END 
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SUBROUTINE  XCHNOEl JF .COF ) 

DIMENSION  C0F(n.LVT(6).IX(6) 

DOUBLE  PRECISION  D6SQ.DER 
COMMON  /YATOAT/  OSSQ.DER. 

3LVLI 4 ) .NFG.IRAH.DAT ( 256 ) . NENOt 4 .4  ) .TTL( 20 ) » 

1VNAM(2).NAME(  8) .FMT( 80) . I CODE . IL(6) • NIN .NOUT .NDX .NF . 

2NVBL .NREP .CONCOMl 4 .4 ) .NR( 256 ) .FA .FB.NDH 256 ) . IV  .NH . 

4C0EFI 4.6) .A( 512 ) 

DO  5 K=1.NF 
5 LVT(K)=LVL(K) 

LVT(NF)=LVL(vJF) 

LVT ( JF )=LVL( NF  ) 

DO  10  J=I.NFO 

CALL  ANAL(J.IX(1).IX(2).IX(3).IX(4)) 

I TEMP= IX ( NF ) 

IX l NF ) = IX(  JF ) 

IX( JF)=ITEMP 

NY=LTNEH(  LVT . IX( 1 ) . IXI 2 ) . IXC 3 ) . IXI 4 ) ) 

COF( NY )=A( J ) 

10  CONTINUE 
RETURN 
END 
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SUBROUTINE  ZTORflH(C.J) 

COMMON  /YflTDAT/  DUMflt 4 1 ,LVL( 4 ) .OUMBC 397 ) ,X( 4 .4  ) 

DIMENSION  C(l) 

KGO=LVL(J)-l 
DO  TO  110.20.30I.KGO 
10  C(2)  = (X(J.2)-X(J.m/2.0 
cm=ixi  j.2)+x(j.m/2.o 

RETURN 

20  CC 3 J = C XC J.3)-2.0«X( J.21+XI J.l  11/2.0 
Ct21=lXtJ.31-X(J. 111/2.0 

cm=x(j.2) 

RETURN 

30  CU1  = (9.0*X(  J.4)-27.0«XIJ.31*27.0»XCJ.2)-9.0«X(  J.l)  1/16. 
CC3)=9.0«IX( J.4)-X(J.3)-X( J.21+XCJ.1 11/16.0 
CC 2 ) = t -X( J.4)*27.0«X( J.3)-27.0*X( J.21+XC J.l ) 1/16.0 
Cll):(-X( J.4)+9.0«Xt J.3)+9.0»X( J.21-XI J.l 11/16.0 
RETURN 
END 
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SUBROUTINE  06HULT ( R .N  ,C  .0  ) 

dimension  nm.eiii 
C OR  DOUBLE  PRECISION  fllll.BIll.C 

IFIN.LT.O  .OR.  N.OE.120  ) 00  TO  95 

NP  = N*1 
00  1 1 = 1. NP 

1 B(l)  = fl(I) 

B(NP*1)  =-C*Bl NP  I 
1FIN.EQ.0)  00  TO  99 
00  2 J=1 . N 

JX  = N-J*  1 

2 BIJX*1)  = B( JX*1)-C«B( JX) 

00  TO  99 

95  HRITEI 6.91 ) N 

91  FORflflTl  1H0.5X.31H0SNULT  DOES  NOT  WORK  FOR  OEGRE 
99  RETURN 

ENO 


.15) 
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SUBROUTINE  OMMULTl A .N .C.B ) 

TAKE  AN  EQUATION  AdlilX-Cd)  )«(X-C(2))« (X-C(NI)  ♦ A(2)itX-CdI) 

■(x-ct2n«...*(x-C(N-i n ♦ ...  ♦ AiNi*(x-cm)  ♦ A(N+n.  convert  int 

B(  1 )bX«*N  «•  B(  2 N-l  ) ♦...+BIN+1) 

DIMENSION  Ad).Cd).B(l) 

OR  DOUBLE  PRECISION  All)  .Cl  1) .B(l) .HOLD 
IFIN.LT.O  .OR.  N.OE.120)  00  TO  95 
NP  = N*1 
00  1 1=1. NP 
L B(I)  = A(II 

IF  (N.E9.0)  00  TO  99 
DO  2 J=1.N 
HOLD=B(  <J+1 ) 

JX  = N-JM 

CALL  08MUL7 (B.J-l.C(JX).B) 
l B( J+l ) = B(J+1)  «•  HOLD 

00  TO  99 

35  HRITEf  6.91  ) N 

31  FORMAT! 1HO.10X.31HDHMULT  DOES  NOT  WORK  FOR  OEOREE  .15) 

39  RETURN 
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FUNCTION  ORTh(Z.I.N) 

MsN~  1 

00  TO  no. 20. 30). M 
10  00  TO  (12.141.1 
12  0RTh=1.0 
RETURN 
14  ORTH=Z 
RETURN 

20  00  TO  (12.14.221.1 
22  0RTH=3 •0*Z«Z-2 .0 
RETURN 

30  00  TO  (12.32.34.361.1 
32  0RTH=3 .0*Z 
RETURN 

34  0RTh=(9.0«Z«Z-5. 01/4.0 
RETURN 

36  ORTH=( (45. 0»Z»Z-41.0)*Z  1/4.0 
RETURN 
END 
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EXTERNAL  E08INT  .PFINT 

DOUBLE  PRECISION  P.  DUMMY. PVALI 4) .XHIN.XMAX  .XINC.YMIN.YHAX 

DOUBLE  PRECISION  FMT .FMT1 .FHT2 .FORM! 7 ) ,OP .CLO .FORM1 .F0RH2 
REAL  NAME! 2) 

INTEGERS  INFUNI34). INSERT 

DIMENSION  X()5).Y(15).C(4.11.4).ICN(4) .XCOLI 11)  .ANSI  11.4) 

DIMENSION  YSAVI 15.4) ,RMT( 1 ) 

DIMENSION  TEXT! 20 ) .FUNI 1 7 ) 

DIMENSION  HHH!3) 

COMMON  KEY . IOVLY . ITYPE . JTYPEI 4 ) .MASK 
EQUIVALENCE  (FHT.RMTtm 
EQUIVALENCE  ( INFUNI 1 ) .FULL ) 

EQUIVALENCE  (NON. NT) 

OATA  BLANK/'  V 
DATA  INSERT  /’Y='/ 

DATA  0P.CL0.F0RM1 .F0RM2  / ' ( ' . ' IX ) ’ . 'F12 .5 . ' . 'E 12 .5 . V 
DATA  FMT1 .FHT2.ICH  / ' ( F9 .2 ) * . '( E9 .3 1 ' . ' I ' . *2 ' . '3 ’ , *4  V 
OATA  MHM  /Z60000001 .Z7E000009 .270000001/ 

REMIND  8 

CALL  PLOTS! I0UM.J0UM.8) 

M=1 1 

NC=68 

N0M=4 

NPARM=0 

IFLAG=0 

NZ=0 

CALL  ORINIT! 'B* ) 

CALL  OCEOB! E08INT ) 

CALL  NEHPCE 
MASK=MMM( 1 ) 

CALL  OCPFKfMASK. PFINT) 

CALL  STUFF12. 'THIS  UNIT  HILL  PLOT  ANY  EXPRESSION  CURRENTLY  AVAILA8 
LE  ') 

CALL  STUFF! 3 . ' IN  THE  CALCULATOR  MODE. 

’ ) 

CALL  STUFF ( 5 . ' THE  FUNCTION  CAN  BE  OF  THE  FORM 
' ) 

CALL  STUFF!?.  * Y = Ft  X ) . OR 
' ) 

CALL  STUFF18. * Y = F!Z)  WHERE  Z = G(X) 

') 

CALL  STUFF! 10,'IN  ADDITION.  THE  EXPRESSION  MAY  BE  PLOTTED  FOR  UP 
') 

CALL  STUFF! II . 'TO  FOUR  VALUES  OF  A PARAMETER.  SAY  P. 

') 

CALL  STUFF! 13. 'DEPRESS  KEY  31  TO  TERMINATE  THE  SESSION. 

’) 

CALL  STUFF! IS. 'IF  YOU  WISH  TO  SPECIFY  A VARIABLE  PARAMETER 
') 

CALL  STUFF! 16. 'DEPRESS  KEY  2;  OTHERWISE.  DEPRESS  KEY  1 TO  CONTINUE 
’) 

CALL  SNAP 

CALL  TWAIT! 1 .0.0.0) 

IF(KEY.EQ.l)  GO  TO  10 
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i 

! 

4 


i 
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LN=  1 0 

61  CALL  STUFF ( LN . 'ENTER  THE  NAME  BY  WHICH  YOU  WILL 
1 ') 

LN=LN+l 

CALL  STUFF ( LN . 'REFER  TO  THE  PARAMETER 
1 '1 

CALL  SNAP 

CALL  TWAITlO.O.l  .01 
CALL  GRRPLXl TEXT. NC) 

NAHEtl 1 = TEXT( 1 1 
NAME! 2 1=TEXT( 2 1 
LN=LN+2 

CALL  STUFF! LN . ’ENTER . SEPARATED  BY  C0HNA6.  UP  TO  FOUR  VALUES  FOR 
1 ') 

LN=LN*1 

CALL  STUFF(LN.TEXT) 

LN=LN*1 
CALL  SNAP 
NBACK= 1 

SO  CALL  TWAITlO.O.l .0) 

CALL  ORRPLXt  TEXT .NC 1 
CALL  STUFF(LN.TEXT) 

LN=LN+2 
CALL  SNAP 
INDEX=0 
NPARH=0 
DO  5 1=1.4 

IF( INDEX .LT .0 1 DO  TO  16 

CALL  I NX ( TEXT .INOEX .NC. DUMMY .41000) 

PVALl I )=DUMMY 
NPARH=NPARM+I 
5 CONTINUE 

16  IF( IFLAO.Efl.l ) DO  TO  100 
DO  TO  15 
10  LN=1 8 

15  CALL  STUFF! LN  • ' IF  YOU  WISH  TO  SPECIFY  Z AS  A FUNCTION  OF  X 
1 ’) 

LN=LN*l 

CALL  STUFF! LN.’OEPRESS  KEY  2j  OTHERWISE.  OEPRESS  KEY  1 TO  CONTINUE 
1 ’) 

LN=LN«-2 
CALL  SNAP 

CALL  THAI T l 1 .0.0.0) 

IFlKEY.EQ.il  DO  TO  31 

21  CALL  STUFFILN. ’ENTER  THE  FUNCTION  IN  THE  FORM  Z = DIX) 

1 ') 

LN=LN«-1 

NZ=1 

CALL  SNAP 

CALL  TWAITlO.O.l .0) 

CALL  ORRPLXt INFUN. NC) 

IF! IFLAD.Efl.l ) DO  TO  100 
CALL  STUFFILN. INFUN) 

LN=LN*2 
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31  CALL  STUFFtLN. ’ENTER.  SEPARATED  BY  COMMAS.  THE  MINIMUM  AND  MAXIMUM 
1 VALUES  FOR  X ’) 

LN=LN*l 
CALL  SNAP 
NBACK=2 

60  CALL  THAI T( 0 .0 . 1 .0 ) 

CALL  ORRPLXI TEXT .NC ) 

CALL  STUFF! LN  .TEXT  ) 


LN'sLN+’l 

IN0EX=0 

CALL  INXI TEXT. INDEX. NC.XMIN. 41000) 

CALL  INXI TEXT .INDEX .NC .XMAX .41000 ) 

IF  1 IFLAO.EQ • 1 ) DO  TO  100 
41  CALL  STUFF! LN. ’ENTER  THE  INCREMENT  FOR  X. 

1 ’) 

LN=LN*1 
NBACK=3 
CALL  SNAP 

70  CALL  THAI T ( 0 .0 > 1 .0) 

CALL  ORRPLX ( TEXT .NC ) 

CALL  STUFF ( LN  .TEXT ) 

LN=LN*2 

INDEX=0 

CALL  INXI TEXT. INDEX. NC.XINC. 41000) 

IF! IFLAO.EQ. 1 ) 00  TO  100 

51  CALL  STUFFtLN. ’ENTER.  SEPARATED  BY  COMMAS.  THE  MINIMUM  ANO  MAXIMUM 
1 VALUES  FOR  Y ’) 

LN=LN«-1 
CALL  SNAP 
NBACK=4 

80  CALL  THAI T! 0 .0 . 1 .0 1 
CALL  ORRPLX! TEXT. NC) 

CALL  STUFFtLN. TEXT) 

LN=LN+2 

INDEXrO 

CALL  INX! TEXT. INOEX.NC.YMIN. 41000) 

CALL  INX! TEXT . INDEX .NC . YMAX .41000 ) 

IF! IFLAO.EQ. 1 ) 00  TO  100 

11  CALL  STUFFtLN. ’ENTER  THE  FUNCTION  IN  THE  FORM  V = FIX) 

1 ’) 

LN=LN*1 

CALL  STUFFtLN. ’OR  Y = F(Z)  IF  Z IS  OEFINEO 
1 ’) 

LN=LN*1 


CALL  SNAP 

CALL  THAI T (0.0.1 .0 ) 

CALL  ORRPLX! FUN. NC) 

IF! IFLAO.EQ. 1 ) 00  TO  100 
CALL  STUFFtLN. FUN) 

LN=LN*2 

CALL  STUFFtLN. ’DEPRESS  KEY  1 TO  CONTINUE. 
1 ’) 


CALL  SNAP 

CALL  THAI T ( 1 .0.0.0) 


t 


t 


\ 


318 


00  TO  100 

1000  COLL  STUFF! LN • 'AN  INCORRECT  NUMBER  HAS  BEEN  ENTERED.  TRY  AGAIN 
1 ’ 1 

CALL  SNAP 

00  TO  (50.60.70.80).  NBACK 
100  CALL  NEHPOE 

CALL  OCPFK(HASK.PFINT) 

HASK=MHM(2) 

CALL  STUFF ( 1.'  SUMMARY 

1 *) 

MRI TEC NOM. 500)  FUN 
500  FORMAT! * 1 . '.17A4J 
CALL  FETCHt  TEXT .MC ) 

LNs3 

CALL  STUFF! LN .TEXT  ) 

LN=LN»1 

IF(NZ.Efl.O)  00  TO  110 
MRITE(NOH.SlO)  INFUN 
510  FORMAT!  ' 2.  ' .34A2) 

CALL  FETCH! TEXT. MC) 

CALL  STUFF(LN.TEXT) 

LN=LN+ 1 
00  TO  120 

110  CALL  STUFF l LN . * 2.  NO  Z = 0!X)  6PECIFIE0 
1 ’) 

LN=LN*1 

120  HRITE! N0M.52C  ) XMIN.XHAX 

520  FORMAT!  * 3.  MIN  FOR  X = ' .E14.7. ' MAX  FOR  X = ’.E14.7.11X) 

CALL  FETCH! TEXT. MC) 

CALL  STUFF! LN.TEXT ) 

LN=LN*1 

UR  I TE( NOM .530 ) XINC 

530  FORMAT!  ’ 4.  INCREMENT  FOR  X = '.E14.7.32X) 

CALL  FETCH! TEXT .MC ) 

CALL  STUFF! '.N .TEXT ) 

LN=LNf 1 

HRITE! NDM .540  ) YMIN.YMAX 

540  FORMAT!  * 5.  MIN  FOR  Y = ' .514.7.'  MAX  FOR  Y = ’.E14.7.I1X) 

CALL  FETCH! TEXT ,MC ) 

CALL  STUFF(LN.TEXT) 

LN=LN*1 

lF(NPARM.EO.O)  00  TO  130 
MRI TE( NDM  .550  ) NAME 

550  FORMAT!*  6.  THE  VALUES  FOR  *.2A4.'  ARE«*.36X) 

CALL  FETCHt TEXT. MC) 

CALL  STUFF(LN.TEXT) 

LN=LN*1 
DO  125  K=1 .17 
TEXT(K)=BLANK 
125  CONTINUE 

HRITEtNDM.560)  IPVALl J) ,J=1 .NPARM ) 

560  FORMAT! 4X.4E16. 7) 

CALL  FETCH! TEXT .MC ) 

CALL  STUFF(LN.TEXT) 
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LN=LN»2 
00  TO  140 

130  CALL  STUFF ( LN . ' 6.  NO  PARAMETER  SPECIFIEO. 

1 *) 

LN=LN*2 

140  CALL  STUFF! LN. ’DEPRESS  THE  KEY  CORRESPONDING  TO  A NT  ITEM  YOU  WISH 

I TO  CHANOE  ’) 

LN=LN*Z 

CALL  STUFF! LN . ’OR  DEPRESS  KEY  28  TO  PLOT  THE  FUNCTION 
1 ’1 

CALL  SNAP 

CALL  THAI T! 1 .0.0.0) 

IFIKEY.EQ.28)  00  TO  607 
I FLA 0=1 

00  TO  (11.21.31.41.51.61).  KEY 
607  CALL  0RRL6E 
600  CONTINUE 
CALL  INI  TP 
HASK=MMM( 3 ) 

CALL  PFKP! MASK .PFINT  ) 

CALL  E0BP1 EOBINT ) 

CALL  ORAXES! 0 . .4092 ..100. .4092 ..0.4092 .100.4092 ) 

HT=4050 • 

CALL  GRCHAR!  'BP ’ .FUN ,NC .800 . .HT  ,K  ) 

IFINZ.EQ.O)  00  TO  610 
HT=HT- 1 00 . 

CALL  ORCHAR! ’BP '. INFUN .NC .800 . .HT .K ) 

610  IF(NPARM.EQ.O)  00  TO  620 
HT=HT-100. 

CALL  ORCHARI  ’BP’.*  PLOT  NO.  PARAMETER  ’ .24  .800 . .HT  .K ) 

IN0=1 

00  612  J=1  .NPARM 

IFIPVALl J).LT. .001 .OR.PVAL! J) .OT-9999.999)  IN0=2 
612  CONTINUE 

00  614  K=l. NPARM 
HT=HT-100. 

OO  TO  (616.618)  . IND 
616  HRITE(N0M.900)  K.PVAL(K) 

00  TO  619 

618  WRITE! N0M.910)  K.PVALlK) 

900  FORMAT! 16. 8X.F10. 4. 44X) 

910  FORMAT! I6.7X.F14.7.41X) 

619  CALL  FETCH! TEXT. MC) 

CALL  ORCHAR! 'BP ’ . TEXT ,HC .800 . .HT .KFLAO) 

614  CONTINUE 

620  AMIN=XMIN 
AMAXsXMAX 
BMIN=TMIN 
BMAX=YMAX 

AINC=! AM AX- AM IN )/10. 

0INC=( BMAX-BMIN )/l 0 . 

CALL  ORCHAR! ’BP’.’PFK I 1 = SUMMARY.  2 = NEW  Y-AXIS.  3 = BLOW-UP.  3 

II  = STOP’. 56. SO.. 200. .K) 

FMT=FMT1 
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IF! ABSI AH  IN) .LT. .01 -OR . ABSI AMIN ) .DT .999 .999 ) FHT=FHT2 
WRITE! NT .RHT ) AMIN 
CALL  FETCH! TEXT  .HC ) 

CALL  GRCHAR ( ’BP ’ .TEXT .HC .575  . .400  . .K  ) 

FHT=FMT1 

IFJABS(AHBX)  .LT.  .01  -OR .BBS! AMAX ) .GT .999 .999 ) FMT=FHT2 
WRITE!  NT  .RHT  ) AHAX 
CALL  FETCH! TEXT. MCI 

CALL  GRCHAR! ’BP ’ .TEXT .MC .3475 . .400 . .K ) 

FMT=FHTl 

IF! ABSIBniNJ.LT. .PI .OR .ABSI BHIN ) .GT .999 .999 ) FHT=FHT2 
WRITEINT.RMT)  BHIN 
CALL  FETCH! TEXT .HC ) 

CALL  GRCHAR!  'BP ’ .TEXT .HC . 175 . .500  . ,K J 
FMT=FMT1 

IFIABS1BHAX) .LT..01 -OR -ABSI BHAX ) -GT .999 .999 ) FHT=FHT2 
WRITE! NT .RHT  ) BNAX 
CALL  FETCH! TEXT. HC) 

CALL  GRCHAR! 'BP ’ .TEXT .HC . 175 . .3420 . .K I 
CALL  GRCHAR! ’BP’. 'INC  = ’ .6.1900. .400. .K) 

CALL  GRCHAR! 'BP’. 'INC  = ’ .6 . 175 • .2000 • .K ) 

FHT=FnTl 

IFIAB6IAINC) .LT..01 .OR .AB6! AINC ) .OT .999 -999 ) FHT=FHT2 
WRITE(NT.RHT)  AINC 
CALL  FETCH! TEXT. HC) 

CALL  GRCHAR!  ’BP ’. TEXT .HC .2250 . .400 . .K  ) 

FHT=FHT1 

IF! ABSI  BINC ) .LT . .01 -OR .BBS! BINC ) -GT .999.999 ) FMT=FHT2 
WRITE! NT .RHT  ) BINC 
CALL  FETCH! TEXT. HC) 

CALL  GRCHAR!  ’BP '. TEXT .nC . 1 75 .. 1900 . .K ) 

CALL  GRCHAR! ’BP ’ . ’X ’ . 1 .2300 . .300 . .K ) 

CALL  GRAXES! XHIN .XHAX .YHIN.YHAX .800.3800.500.3500 ) 

OELX=( XHAX-XHIN )/2 .0 

DELY=( YHAX-YHIN )/2 .0 

CALL  ORORIOIOELX.OELY. ’B’.K) 

NUHPLO=NPARH 
IFINUHPLO.EO.O)  NUHPL0=1 
00  700  J=1  .NUHPLO 
CALL  UV00I15) 

IF l NPARH  . EQ  .0 ) GO  TO  333 
CALL  ENSYMl NAME .PVAL! J ) .KK  ) 

333  XOUH-XHIN 
HK=0 

00  710  1 = 1 .11 

CALL  ENSYMl  ’X  ’.XOUH.KK) 

IFIN2.EQ.0)  GO  TO  720 
IHOLD=INFUN(  1 ) 

INFUN! 1 )=IN6ERT 

ZVAL=EVAL! INFUN. 68. HOOET. HERR) 

INFUN! I ) = IHOLO 

CALL  ENSYH!  ’Z  ’ .ZVAL.KK) 

720  YOUM=EVAL(FUN. 68. HOOET. HERR) 

IFfYOUM.LT -YHIN.OR.YOUH.GT .YMAX)  00  TO  1752 
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CALL  PUTUV(XDUM.YOUM.KKK) 

MK=MK ♦ 1 

HRITEI6.1717)  XOUM.YOUM 
1717  FORMAT  t 2E20  .7  1 
1752  X( I )=XDUM 
Y ( I UYOUM 
XOUN=XDUM*AINC 
710  CONTINUE 

DO  730  1=1.11 
YSAV! I ,J)=Y(  1 1 
730  CONTINUE 

CALL  SPLCONtX.Y.M.C! 1 .1  .J) ) 

CALL  ORPL0T ( ’BP'.'B' . 'B'.l . MK . I CH! J ) . *0 ' .KKK  ) 

CALL  UV99 
CALL  UV00I210) 

NPT5=0 

XOUT=XMIN 

IF!  (XMAX-XMIN J/XINC.OT. 200.)  XINC=< XMAX-XMIN 1/200  . 

750  CALL  SPLINE! X .YSAV! l.Jl.M.C(l.l.J) .XOUT .YOUT  1 
XOUM=XOUT 
YOUM=YOUT 

IF!  YOUM.LT.YMIN.OR.YOUn.OT.YMAX  ) 00  TO  752 
CALL  PUTUV(XDUM.YOUM.KKK) 

752  XOUT=XOUT ♦X I NC 
NPTS=NPTS+1 

IFIXOUT.LT.XMAX)  00  TO  750 

CALL  ORPLOTl  ’BP  * . 'A ’ . ’B  ' . 1 .NPTS . ’■  ’ . ’0  ’ .KKK  1 
CALL  UV99 
700  CONTINUE 

CALL  PWAITt 1 .0.0.0) 

CALL  ORAXES! 0 . . 4092 . . 1 00 . . 4092 . .0 . 4092 . 1 00 .4092  ) 

00  TO  (915.920.930) .KEY 
915  CALL  REFILL 
CALL  RL6EP 
CALL  ORINIT! 'B') 

CALL  OCEOB(EOBINT) 

00  TO  100 

920  CALL  ORCHARl  'BP ' . 'ENTER  NEW  niNIMUM.  MAX  I MUM ' .26 .50 . . 1 00 . .K  ) 
CALL  OREPLY! TEXT.NC) 

CALL  XBLANK! TEXT.NC) 

IN0EX=0 

CALL  I NX!  TEXT, INDEX. NC. DUMMY. 4100) 

YMIN=DUMMY 

CALL  I NX ( TEXT. INDEX. NC. DUMMY. 4100) 

YMAX=OUMMY 
CALL  REFILL 
. CALL  RLSEP 
00  TO  600 

930  CALL  ORCHARt 'BP'. 'ENTER  MINIMUM,  MAX IMUM ' .22 ,50  . . 1 00  . .K  ) 

CALL  OREPLY! TEXT .NC) 

CALL  REFILL 
CALL  RLSEP 

933  CALL  XBLANKt TEXT.NC) 

INDEX=0 


s 
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CALL  I NX ( TEXT. INDEX. NC. DUMMY. < 100) 

TMIN=DUMMY 

CALL  I NX ( TEXT.  INDEX.  NC.0UMMY.4 100) 

TMAX=OUMMY 
CALL  GRINIT! ’0') 

CALL  GCEOBl EOBINT ) 

CALL  NEWPGE 
HASK=MMM(3) 

CALL  GCPFK! MASK .PFINT ) 

LN=2 

CALL  STUFF(LN.FUN) 

LN=LN*2 

IFtNZ.EQ.O)  GO  TO  1610 
CALL  STUFFtLN. INFUN) 

1610  IFINPARM.EQ.O)  GO  TO  1620 

CALL  STUFFILN.’  PLOT  NO.  PARAMETER 
1 ’) 

LN=LN«-1 

DO  1614  K=1 .NPARM 
GO  TO  ( 1616.1618) . I NO 
1616  WRITE! NDM .900 ) K.PVAL(K) 

GO  TO  1619 

1618  WRITE! NOM .910)  K.PVRL(K) 

1619  CALL  FETCH! TEXT .MC ) 

CALL  STUFF! LN .TEXT ) 

LN=LN*1 

1614  CONTINUE 

1620  CONTINUE 
LN=LN*1 

DO  1650  K0=1  .17 
TEXT ! KB  )=BLANK 
1650  CONTINUE 

WRITE! NOM.  1800)  ! ICH! KOUT ) ,K0UT=1  .NUMPLO) 

1800  FORMAT ( 2X . 'X  ’.4t4X.A8)) 

CALL  FETCH! TEXT .MC) 

CALL  STUFF! LN .TEXT ) 

T INC=! TMAX-TMIN)/)0. 

XCOL! 1 ) = TMIN 

t 00  1905  1=1.10 

XCOL!  1*1  )=XCOL ( I ) -*■  T I NC 
1905  CONTINUE 

DO  1907  J=1  .NUMPLO 
DO  1907  1=1.11 

CALL  SPLINE! X ,YSAV( 1 .J).M,C( 1 .1 ,J). XCOL! I ) ,YOUT ) 

; ANS! I . J )=YOUT 

1907  CONTINUE 
FORM! 1 ) = 0P 
FORM! 2 )=F0RM1 
00  1910  1=1.11 

IF! ABS! XCOL! I ) ) .LT. .01 .OR .ABS! XCOL! I ) ) .GT .999 .999 ) FORM! 2 )=F0RM2 
1910  CONTINUE 

00  1930  Jsl. NUMPLO 
FORM! J*2)=F0RM1 
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TEHP=ANSl I .J) 

IF l ABSI TEMP) -LT . .01 .OR .ABS! TEMP ) .GT .999 -999  ) FORM! J*2 )=F0RM2 
1920  CONTINUE 
1930  CONTINUE 

FORM  l NUMPL0+-3  )=CL0 
00  1950  1=1.11 

WRITE! NT. FORM)  XCOLI I 1 .IANS! I .J) .J=l .NUMPLO) 

CALL  FETCH! TEXT. MCI 
CALL  STUFF ( LN  .TEXT  1 
LN=LN* 1 
1950  CONTINUE 
LN=LN*1 

CALL  STUFFILN. ’DEPRESS  PFK  1 FOR  SUMMARY 
1 ’) 

LN=LN+ 1 

CALL  STUFFILN.’  2 TO  REPLOT 

1 ’) 

LN=LN* 1 

CALL  STUFF ! LN  , ’ 3 FOR  FURTHER  BLOW-UP 

1 ’) 

LN=LN+ 1 

CALL  STUFF ( LN  . ’ 31  TO  STOP 

1 ’) 

CALL  SNAP 

4199  CALL  THAI T ! 1 .0.0.0) 

00  TO  1100.2920.2930).  KEY 
2920  CALL  GRRLSE 
GO  TO  600 
2930  LN=LN*1 

CALL  STUFFILN. ’ENTER  MINIMUM.  MAXIMUM 
1 ' ) 

CALL  SNAP 

CALL  TWAI T (0.0.1  .0) 

CALL  ORRPLX ( TEXT .MC ) 

CALL  GRRLSE 
GO  TO  933 
END 


4 
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SUBROUTINE  SPLCON (X.Y.M.C) 

01  HENS  I ON  Xm.Y(l).0lin.P(ll).E(ll).C(4.1]) 
DIMENSION  fll  11 .3)  .BUI  ) .2(11) 

MH=M- 1 

00  2 K=1  . MM 

0( K )=X( K+ 1 I-X(H) 

PI K )=0l K )/6  • 

2 E(K)  = < Y(Ki-l  l-YIKlJ/OtK) 

DO  3 K=2.MH 

3 81 K )=E  t K ) — E ( K— 1 ) 

fll 1 .2 )=- 1 .-01 1 1/0(2) 
fll 1 .3  )=0( 1 1/0(2) 

A(  2 .3 )=P1 2 ) — P £ 1 )«fl( 1 .3) 

fll  2 .2 ) =2 •■( PI  1 )*P(2) )-P( 1 )»A( 1 .2) 

fl(2.3)=fl(2.3)/fl(2.2) 

B(2)=B(2)/A(2.2) 

DO  4 K=3 • MM 

A(K.2)=2.«(P(K-1  )+P(K) )-PlK-l)«fl(K-l .3) 

B( K )=B( K ) -P ( K-l )«B( K-l  ) 
fl(K.3)=P(K)/fl(K.2) 

4 B( K )=B(K )/fl( K .2) 

0=0 ( M-2  )/0( M- 1 ) 
fl(M.l)  = l . ♦Q*A(  M-2 .3 ) 

A(M.2)=-Q-A(M.l )«fl(M-l .3) 

B(M)=B(M-2)-A(M.l )«Bf  M-l  ) 

ZIM)=B(M)/A(M.2) 

MN=M-2 
DO  6 1=1 .MN 
K=M- 1 

6 ZIK)=B(K)-A(K.3)»Z(K+1  ) 

Z( 1 )=-fl( 1 .2)»Z(2)-H( 1 -3  )«Z( 3 ) 

00  7 K=1 .MM 
0=1 ./I  6 -«D( K ) ) 

C( 1 ,K)=Z(K)«0 

Cl  2 .K ) = Z ( K + 1 )<Q 

C(3.K)=Y(K)/D(K)-2(K)«PlK) 

7 C(4.K)=Y(K  + 1 )/0(K)-Z(Ki-l  )«P(K) 

RETURN 

END 


From  Pennington  [18] 
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SUBROUTINE  SPLINE t X ,Y  ,H .C  .XINT  .YINT ) 

DIMENSION  Xin.Yin.Cl4.in 
IF1 X INT-X ( 11)  7.1.2 

1 YINT = Y ( 1 1 
RETURN 

2 K=1 

3 IFIXINT-XIK*1 1 16.4.5 

4 YINT=Y(K*1 1 
RETURN 

5 K=K*1 
IFIM-K)  7.7.3 

6 YINT=IX(K*1  l-X INT )■( Cl  1 .K  )■(  XCK-«-l  l-XINT )««2+C(  3 . K 1 1 
YINT=YINT«-(XINT-XCK) )■ ( C( 2 ,K )■( X INT-X C K 1 )««2*C( 4 .K  1 1 

7 RETURN 
END 


From  Pennington  [18] 
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DOUBLE  PRECISION  FUNCTION  POWER! OALF .OFh .DFE .OLflH ) 

OOUBLE  PRECISION  ORLF .OFH .OFE .OLAM .BNC5 .DX 

DOUBLE  PRECISION  OLAX .OFA .DFB .ON 

OOUBLE  PRECISION  OTEHP 

ON=OFH*OFE+l -DO 

DLAX=0 .5D0«DLAf1«DN 

OFA=O.S«DFN 

0FB=0.5D0«DFE 

OTEHP  = l .OO-DALF 

OX=BETflP( OTEHP .DFfl .DFB ) 

POHER=l  .00-BNC5(0X. DFfl. DFB. OLflX.l .DO) 

IFIPOHER.CT. 99999800)  P0HER=1 *00 
IFIPOHER.LT. 1 .0-6)  P0HER=0 .DO 
RETURN 
END 


! 
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SUBROUTINE  CHECK! m.a .MODE J 
EXTERNAL  PFINT 

COMMON  KEY . IOVLY . I TYPE . JTYPEl 4 1 .MASK 
DATA  MALL  /ZFFFFFFFF/ 

IFIITYPE.E0.1 .AND. KEY. EQ. 31)  DO  TO  SO 

IFl I TYPE -EQ . 1 .AN0.KEY.EQ.15)  DO  TO  60 

IF (JTYPEI ITYPE  1 -NE.1  1 00  TO  40 

IFl I TYPE .NE  • 1 ) 00  TO  30 

HKEY=32-KEY 

IQ=MASK 

DO  20  1=1 .HKEY 
JQ=IQ 

20  IQ=JQ/2 

IF(JQ.E0.2«I0)  00  TO  40 
30  RETURN 

60  IFlMOOE.EQ.l)  CALL  OCPFKl HALL  .PFINT) 
IFl MODE  >EQ .2 ) CALL  PFKPl HALL .PFINT 1 
CALL  SC0PLT(0. 0.1 .6.0.3.01 
CALL  8C0PLTI MOOE . IOEV ) 

IFIMOOE.EO.l ) CALL  OCPFKI MASK .PFINT 1 
IFl MODE  .EQ  *2 1 CALL  PFKPl MASK .PFINT 1 
40  RETURN  1 
50  RETURN  2 
END 


I 
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SUBROUTINE  GREPLXt TEXT .NC ) 
OtHENSlON  TEXT ( 1 1 
CALL  OREPLYI TEXT .NC ) 

CALL  XBLANKl TEXT .NC ) 

RETURN 

END 


SUBROUTINE  GRRPLX ( TEXT .NC) 
DIMENSION  TEXT ( 1 ) 

CALL  ORRPLYI TEXT .NC ) 

CALL  XBLANKI TEXT.NC) 

RETURN 

END 
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SUBROUTINE  MASK I T I K ) 

EXTERNAL  PFINT 
DIMENSION  MMM( 20 ) 

COMMON  KEY . I OVLY . ITYPE . JTYPEI 4 i .MASK 

DATA  MMM/Z60000001 .200000001 .Z40000001 .Z70000001 . 

1 Z40000003 .ZOOOOOOOD .Z60000003 .Z7800000D .Z4000000D . 

2 Z00000003 .Z5000000D .Z7C000001 .Z70000003 .ZOOOOOOOF . 

3 Z6000000F/ 

MASKsHHM(K) 

CALL  GCPFKf  MASK .PFINT ) 

RETURN 

END 
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SUBROUTINE  NEHPOE 
DIMENSION  OUT! 18.45) .ALINE(l) 
DATA  BLANK/*  V 
DATA  E0L/Z40404015/ 

00  20  J=1 .45 
DO  10  1=1.17 
10  OUT ( I . J )=0LANK 
20  OUT! 18.JI-E0L 
RETURN 

ENTRY  STUFFtK. ALINE) 

DO  30  L=1 .17 
30  OUT(L.K)=ALINE(L) 

RETURN 
ENTRY  SNAP 
CALL  OERASt 100) 

CALL  GROPLY (OUT .3240 .41000 1 
1000  RETURN 

ENTRY  PLUCKIK. ALINE) 

00  40  LK=1 .17 
40  ALINE(LK)=OUT(LK.K) 

RETURN 

ENTRY  NEHLNEUO 
DO  50  IK  = 1 .17 
50  OUT!  IK.K)=BLANK 
RETURN 
END 


I 

: 
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SUBROUTINE  PRSKIT(K) 

EXTERNAL  PFINT 

dimension  rinm  zo  i 

COMMON  KEY . IOVLY . ITYPE . JTYPEU ) .MASK 
DATA  MHM/ZOOOOOOOl. 260000001/ 
HASK=MMM( K I 
CALL  PFKP( MASK. PFINT) 

RETURN 

ENO 
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SUBROUTINE  PEMPOE 
DIMENSION  OUT! 18.45) .ALINE!  1 1 
DATA  BLANK/'  V 
DATA  E0L/Z40404015/ 

DO  20  J=1 .45 
DO  10  1=1.17 
10  OUT ( 1 . J )=8LANK 
20  OUT! 18.J)=E0L 
RETURN 

ENTRY  PSTUFFIK. ALINE) 

DO  30  L=1 .17 
30  OUT! L .K )=ALINE( L ) 

RETURN 
ENTRY  PSNAP 
CALL  REFILL 

CALL  GRCHAR! 'BP ' .OUT .3240 .0 • .4000  ..  IFLAO) 
1000  RETURN 

ENTRY  PPLUCKIK. ALINE) 

DO  40  LK=1 .17 
40  ALINE! LK )=OUT! LK  .K  ) 

RETURN 

ENTRY  PEHLNEIK ) 

00  50  IK=1 .17 
50  OUT ( IK .K )=BLANK 
RETURN 
END 


SUBROUTINE  PHflIK I .J.K.L  ) 

COMMON  KEY.IOVLY.ITYPE.JTYPEM) 
DATA  MOOE  /2/ 

JTYPEl 1 )=I 
JTYPEl 2 )=J 
JTYPEl 3 )=K 
JTYPEf  4 )=L 
10  CALL  OWAI T 

HRITE(6. 20001  I TYPE 
2000  FORMAT ( 20X . ' I TYPE= ’.IB) 

CALL  CHECKU10. 420. MODE) 

RETURN 

20  CALL  RLSEP 

CALL  PLOT ( 0 . .4  .0.999  ) 

STOP 

END 


SUBROUTINE  SPACE(NS) 

00  10  1 = 1 .NS 

CALL  GROPLY ( ' '.1 .41000) 
10  CONTINUE 
1000  RETURN 
END 


SUBROUTINE  THAI T( I . J ,K .L) 

COflflON  KEY.I0VLY.ITYPE.JTYPE!4) 
OATA  HOOE/1/ 

JTYPE ( 1 ) = I 
JTYPE ( 2 )= J 
JTYPE ( 3 )=K 
JTYPE! 4 )=L 

10  CALL  OHAIT 

CALL  CHECK! 4 1 0 .420  .MODE  1 
RETURN 

20  CALL  0RRL6E 

CALL  PL0T!0. .4.0.999) 

STOP 

END 


.UNCLASSIFIED 


Security  Classification 


DOCUMENT  CONTROL  DATA  - R&D 


( Security  classification  of  title,  body  of  abstract  and  indexing  annotation  must  be  entered  n-hen  the  overall  report  is  c las  sifted) 


1 ORIGINATIN  G ACTIVITY  (Corporate  author ) 


2 a REPORT  SECURITY  CLASSIFICATION 

UNCLASSIFIED  


UNIVERSITY  OF  GEORGIA 


I 2 b GROUP 

! UNCLASSIFIED 


3 REPORT  TITLE 


"GRAPHICAL  AIDS  FOR  STATISTICAL  COMPUTATION'S 


4 DESCRIPTIVE  NOTES  ( Type  of  report  and  Inclusive  dates) 


7 


5 AUTHORfS.)  (Last  name,  first  name,  initial) 


Walter  P.  Bond  and  Rolf  E.  Bargmann 


6 REPO  RT  DATE 

December,  1976 


7 a TOTAL  NO  OF  PAJES 


336''  ✓ 


7 b NO  OF  REFS 


31 


)«.  CONTRACT  OR  GRANT  N<3\ 

N000  14-69-A-0423 

b.  PROJEC  T NO 

NR  042-261 


9a  ORIGIN  ATOR’S  REPORT  rtUMBERfS; 

Themis  Report  No.  37 


f 


9 b OTHER  REPORT  NOfS)  ( A ny  other  numb*'?  s ffi  at  may  be  as  signed 

th‘*ropor0 Report  No.  112 


Dept,  of  Statistics  & Computer  Science 


10  A VA  IL  ABILITY/LIMITATION  NOTICES 

Reproduction  in  whole  or  in  part  is  permitted  for  any  purpose  of  the  United 
States  Government. 


11  SUPPL EMENTARY  NOTES 


12  SPONSORING  MILITARY  ACT  IVITY 


13  ABST^CT 


This  report  describes  development  and  documentation  of  a set  of  programs 
for  interactive  use  with  graphics  (IBM  360/370  with  2250  terminal),  for  the 
construction  and  evaluation  of  response  surfaces,  and  for  plotting  and  expanding 
statistical  distribution  functions.  A facility  is  included  to  update  and  add 
new  functions.  Examples  and  sample  displays  are  included  for  response  surface 
optimization,  process  evaluation,  likelihood  function,  power  functions,  multiple 
correlation  distributions,  Lelimann  test,  and  distribution  of  the  largest  char- 
acteristic root. 


DD  'SS.  1473 


UNCLASSIFIED. 


Security  Classification 


UNCLASSIFIED 


KEY  WORDS 


Computer  Graphics 
Conversational  Computation 
Interactive  Programs 
Statistics 

Distribution  Functions 
Response  Surfaces 
Interval  Estimation 
Extended  Yates  Algorithm 
Splines 
Contours 


DD  Form  1473  (Back) 


UNCLASSIFIED 


